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PREFACE 


The  overall  objectives  of  this  study  are  to  identify  the  noise  sources  unique 
to  V/STOL  aircraft  with  jet-propulsive-lift  systems  and  to  develop  a computer 
program  to  predict  far-field  noise  levels.  Several  investigations  are  being 
conducted  continuously  by  industry  and  government  agencies  to  improve  the 
noise  prediction  and  suppression  methods  of  various  components  of  aircraft 
noise.  The  development  of  this  program  used  available  aeroacoustic  theories 
and  test  data  such  that  appropriate  and  effective  modeling  could  be  achieved. 
Wherever  the  data  bank  is  limited,  reasonable  assumptions  are  made. 

This  report  supersedes  the  previous  report,  "V/STOL  Noise  Prediction  and 
Reduction"  (No.  FAA-RD-73-1^5) , developed  under  the  same  contract  (No. 
D0T-FA72WA-3099) • In  order  to  make  this  report  useful  for  a large  segment  of 
aeroacoustlcs  engineers  and  scientists,  it  is  written  in  two  parts.  The  first 
part  provides  the  descriptions  of  jet-propulsive-lift  systems  of  V/STOL  air- 
craft, the  analyses  of  noise  source  characteristics,  and  the  derivation  of  the 
equations  to  predict  aircraft  noise  levels.  The  second  part  describes  the 
computer  program  and  its  use  to  predict  the  noise  levels  of  V/STOL  aircraft 
using  operational  and  geometrical  parameters. 
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SUMMARY  AND  CONCLUSIONS 


The  primary  objective  of  this  investigation  is  the  formulation  and  development 
of  a unified  program  to  predict  far-field  noise  from  jet-powered  V/STOL  air- 
craft of  the  type  which  utilize  propulsive-lift  systems.  A substantial  part 
of  this  report  is  the  study  conducted  under  phases  5 through  8 of  Contract 
D0T-FA72WA-3O99.  The  investigation  conducted  under  phases  1 through  k and  re- 
ported in  August  1973  (Reference  l)  is  also  updated  and  revised  to  reflect  the 
advancement  in  the  definition  and  understanding  of  noise  generation  and  propa- 
gation of  jet-powered  V/STOL  aircraft.  Thus,  this  report  supersedes  the 
previous  report  of  August  1 973 • 

The  following  six  jet-propulsive-lift  systems  are  consudered: 

o Vectored  Thrust 
0 Externally  Blown  Flap 
o Upper  Surface  Blowing  Flap 
o Internally  Blown  Flap 
o Augmentor  Wing 
o Hybrid  System 

These  concepts  appear  to  have  the  potential  for  development  of  environmentally 
ccceptable  STOL  aircraft.  A brief  description  of  each  integrated  propulsive 
system  is  presented,  including  geometry  and  flow  field. 

Noise  source  categories  for  the  aircraft  types  identified  in  this  investiga- 
tion are:  internally  generated  engine,  jet  mixing,  lift  augmentation  system, 

and  non-propulsive  systems.  State-of-the-art  theoretical  developments  and 
experimental  data  were  utilized  in  evaluating  the  characteristics  of  noise 
sources  and  establishing  the  relative  significance  of  each  source. 

Experimental  data  of  various  components  of  propulsive-lift  system  noise  were 
extensively  used  in  developing  the  analytical  procedures  for  aircraft  noise 
prediction.  In  areas  where  neither  theoretical  nor  experimental  data  were 
available,  engineering  judgement  and  intuitive  knowledge  were  used.  !n 
addition  to  the  generation  and  propagation  characteristics  of  noise  sources, 
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atmospheric  attenuation,  effect  of  aircraft  motion,  ground  reflection  effects, 
extra  ground  attenuation,  shielding  of  sound  by  aircraft  components,  and  noise 
reduction  techniques  were  considered  in  developing  the  noise  prediction  model. 

A computer  prograr  was  developed,  based  on  the  analytical  model,  to  compute 
the  contribution  of  each  noise  source  generated  at  the  aircraft  and  propagated 
towards  an  observer  on  the  ground.  One-third  octave  band  spectra,  overtil  1 
sound  pressure  levels  (OASPL) , perceived  noise  levels  (PNL) , and  tone-corrected 
perceived  noise  levels  (PNLT)  can  be  computed  for  each  source  and  for  the  total 
aircraft.  Computations  can  be  made  for  a fixed  position  of  the  aircraft  over  a 
defined  (variable)  flight  profile,  either  for  a specified  observer  location  or 
for  various  observer  locations  along  any  sideline.  The  program  also  has  a 
capability  of  selecting  the  maximum  noise  levels  along  a sideline  for  a given 
aircraft  position  and  repeats  the  procedure  for  various  aircraft  positions  to 
identify  the  location  of  observer  and  aircraft  where  the  absolute  maximum 
noise  occurs.  These  features  are  considerable  improvements  over  the  original 
program  which  only  could  predict  noise  levels  at  a given  point.  A simplified 
logic  diagram  used  in  developing  the  computer  program  is  given  in  Figure  1. 

Part  1 of  this  report  describes  the  analysis  of  radiated  sound  from  V/STOL 
aircraft.  The  various  noise  sources  and  acoustic  effects  identified  with  jet 
propelled  V/STOL  aircraft  are: 

o Internally  Generated  Engine  Noise 
o compressor/fan 
o turbine 
o excess  engine 

o Jet  Noise 

o mixed  flow  jet  exhaust 
o co-axiai  flow 

o Lift  Augmentation  Noise 
o impingement 
o wa 1 1 j e t 
o trailing  edge 
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o trailing  edge  wake 
o augmentor  wing 

o Non-Propul sive  Noise 
o airframe 

o auxiliary  power  unit 

o Propagation  and  Flight  Effects 
o effect  of  aircraft  motion 
o ground  reflection 
o extra  ground  attentuation 
o shielding  by  aircraft  components 

o Noise  Reduction  Features 


The  development  of  methodology  and  sources  of  information  used  are  discussed 
in  this  part  of  the  report. 

Part  II  presents  the  computer  program  and  its  use  for  predict  ton  of  V/STOL 
aircraft  noise  for  any  aircraft  position  over  a defined  flight  profile. 

The  program  consists  of  a main  control  program  and  22  subroutines.  The  noise 
from  each  source  defined  for  V/STOL  aircraft  is  predicted  by  a separate  sub- 
routine. The  following  subroutines  have  been  developed  to  predict  the 
radiated  noise  from  12  different  sources: 

(1)  AERO  - airframe  aerodynamic  noise 

(2)  FAN  - single  stage  fan  noise 

(3)  TURBNE  - engine  turbine  noise 

(4)  JET-  jet  mixing  noise 

(5)  EXCESS  - excess  engine  noise  (core) 

(6)  AUGWNG  - noise  of  complete  augmentor  wing  high  lift  system 

(7)  WNGJET  - jet  mixing  noise  from  wing  slot  nozzle 

(8)  IMPING  - noise  from  impingement  of  jet  flow  on  wing  flap  surface 

(9)  WALJET  - noise  from  jet  flow  over  wing/flap  surface 

(10)  WAKE  - noise  from  trailing  edge  wake 


(11)  TRAIL  - trailing  edge  noise 

(12)  APU  - noise  from  auxiliary  power  unit  (PNL  only) 

In  addition,  the  following  10  other  subroutines  calculate  the  propagation 
effects,  noise  reduction,  and  interpolation  functions: 

(1)  EGA  - effect  of  extra  ground  attenuation 

(2)  GRE  - effect  of  ground  reflection 

(3)  SHIELD  - effect  of  wing  shielding 

(4)  FWDSPD  - effect  of  aircraft  forward  motion 

(5)  DOPLER  - Doppler  frequency  shift  due  to  motion  of  the  source 

(6)  REDUCE  - noise  reduction  features 

(7)  PNLREV  - perceived  noise  level  (PNL)  calct .ations  from  a 1/3  octave 

band  spectrum 

(8)  TONE  - tone  corrections  to  PNL  from  a 1/3  octave  band  spectrum 

(9)  GIRC  - table  interpolation  routine  for  single  independent  variable 

tables 

(10)  DTAB2  - table  interpolation  routine  for  tables  with  two  independent 
variables. 

The  main  program  (ST0LPR0G)  and  the  22  subroutines  form  a unified  noise  predic- 
tion tool  for  V/STOL  aircraft.  However,  experience  indicates  that  as  new 
concepts  of  propulsive  systems  and  noise  suppression  are  developed,  new  noise 
sources  appear  and  the  characteristics  of  the  sources  may  change.  Therefore, 
the  noise  prediction  program  must  be  continually  modified  to  reflect  the 
changes  in  noise  source  characteristics.  In  addition,  several  acoustic  tech- 
nology items  are  still  under  development.  For  example  there  is  not  yet  a full 
understanding  of  forward  speed  effects  and  several  research  contracts  or  this 
subject  are  currently  underway  in  the  industry.  Likewise,  acoustic  feedback 
phenomena  and  the  noise  generation  by  orderly  structure  of  turbulence  and  core 
engine  noise  are  yet  to  be  completely  understood.  These  are  only  a few 
examples  of  new  and  emerging  technology.  The  novelty  of  this  program  is  that 
as  the  state  of  the  art  advances  in  understanding  of  any  particular  noise 
generating  and  propagating  mechanism,  or  as  additional  experimental  evidence 
becomes  available,  the  analytical  model  and  the  computer  program  may  be  modi- 
fied by  updating  only  the  affected  modules. 
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This  program  may  also  be  used  to  predict  the  noise  levels  for  reduced  takeoff 
and  landing  (RTOL)  aircraft,  since  the  integrated  propulsive-lift  systems  ere 
similar  to  those  of  V/STOL  aircraft. 


INTRODUCTION 


It  is  anticipated  that  V/STOL  aircraft  will  play  a major  role  in  meeting  the 
short-haul  transportation  requirements  in  the  1 980 1 s . This  will  include  air- 
craft operations  at  existing  large  airports,  smaller  regional  airports,  and 
probably  from  new  downtown  V/STOL  ports^  as  illustrated  in  Figure  2.  These 
V/STOL  aircraft  will  have  much  shorter  ground  runs  and  will  climb  out  of  the 
airport  and  make  landing  approaches  at  steeper  angles.  Terminal  area  opera- 


A great  deal  of  effort  has  already  been,  and  continues  to  be,  devoted  to  the 
development  of  new  V/STOL  aircraft  configurations  and  to  understand  their 
noise  characteristics.  During  the  past  few  years,  substantial  amounts  of 
static  model  tests,  and  limited  model  tests  with  forward  speed,  have  been  con- 
ducted on  various  propulsive-lift  system  concepts  to  define  noise  characteris- 
tics and  estimate  community  noise  levels.  Some  experimental  investigations 
have  also  been  conducted  to  explore  possible  noise  reduction  features.  The 
resulting  test  data  have  been  utilized  to  establish  scaling  laws  and  to 
estimate  aircraft  noise  levels  on  the  ground  during  take-off  and  landing 
operations. 

Since  there  were  no  unified  noise  prediction  standards  available  for  this 
class  of  aircraft,  the  current  program  was  undertaken  which  utilized  available 
test  and  analytical  data  to  evolve  a noise  prediction  procedure.  A preliminary 
version  of  the  prediction  procedures-^  was  released  in  1973-  The  present 
report,  which  includes  the  analyses  of  much  new  technical  material,  updates  the 
original  version  into  a more  accurate  and  usable  form. 

This  report  is  written  in  two  separate  parts.  The  first  part  describes  the 
analyses  of  noise  generation  mechanisms,  radiated  sound  fields,  and  the 
methodology  for  prediction  of  full-scale  far-field  noise  levels.  The  second 
part  consists  of  the  description  and  uses  of  the  noise  prediction  computer 
program. 
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. DESCRIPTION  OF  POWERED-LIFT  SYSTEMS 


In  recent  years  several  concepts  have  been  evolved  to  provide  the  propulsive 
lift  required  for  short  take-off  and  landing  operations.  The  six  integrated 
powered-lift  systems  outlined  below  offer  good  development  potential  for 
V/S/RTOL  aircraft. 

1.1  VECTORED  THRUST  (VT) 


For  the  vectored  thrust  concept,  lift  augmentation  is  obtained  by  changing  the 
engine  vector.  This  is  accomplished  by  deflecting  the  flow  from  the  exhaust 
nozzle  downward  as  shown  in  Figure  1 — 1 a . To  minimize  flow  turning  losses, 
turning  vanes  are  often  used  in  a swivel  nozzle.  The  flow  through  the  turning 
vanes  generates  additional  turbulence  and  noise  which  is  a function  of  the 
flow  velocity  at  the  vanes.  Beyond  the  general  dependence  on  velocity,  there 
is  no  theoretical  or  empirical  formulation  available  to  estimate  the  noise  as 
a function  of  parameters  such  as  velocity,  turning  vane  dimensions,  number  of 
vanes,  or  the  angle  with  which  the  flow  turns  for  this  additional  vane- 
generated noise. 

1.2  EXTERNALLY  BLOWN  FLAP  (EBf) 


The  externally  blown  flap  concept  refers  to  a configuration  with  the  engine 
below  the  wing  and  the  engine  exhaust  directed  toward  a slotted-flap  arrange- 
ment as  shown  in  Figure  1 - 1 b . This  configuration  is  also  known  as  "Externally 
Blown  Flap/Lower  Surface  Blowing  (EBF/LSB)"  and  "Under-the-Wi ng  Externally 
Blown  Flap  (UTW) ."  The  lift  augmentation  is  obtained  by  the  flap-deflected 
flow  and  the  associated  wing  supercirculation.  The  flow-surface  interaction 
and  the  modification  of  the  flow  by  the  introduction  of  the  wing/flap  in  the 
flow  are  the  additional  noise-source  mechanisms  of  this  high-lift  system. 


1.3  UPPER  SUf.FACE  BLOWING  CONCEPT  (USB) 

In  the  case  of  the  upper  surface  blowing  concept  (Figure  1 - 1 c) , the  engine  is 
located  over  the  wing,  and  the  exhaust  is  discharged  on  the  upper  wing  surface 
and  is  turned  downward  over  the  deflected  flap  by  the  Coanda  principle.  This 
configuration  is  also  known  as  "Externally  Blown  Flap/Upper  Surface  Blowing 
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(EBF/USB)"  or  "Over-the-Wing  Blown  Flap  (OTW) 11  configuration.  As  in  the  case 
of  the  EBF  concept,  the  lift  augmentation  is  obtained  by  the  combination  of 
flow  deflection  and  wing  supercirculation.  The  modified  flow  and  the  flow- 
wing/flap interaction  are  the  major  additional  noise  mechanisms.  The  propaga- 
tion characteristics  of  the  engine  and  jet  noise  change  due  to  the  unique 
location  of  the  engine  exhaust  on  the  wing/flap  surfaces,  creating  shielding 
and  diffraction. 

r 

Kjt  INTERNALLY  BLOWN  FLAP  (IBF) 

The  IBF  concept  illustrated  in  Figures  l-1d  and  1 - 1 e uses  flow  from  the  power 
plant  and  ducts  it  internally  to  generally  high-aspect-ratio  slot  nozzles  on 
the  wing/flap  upper  surface  or  trailing  edge.  This  concept  may  be  further 
subdivided  as  either  boundary  layer  control  (BLC)  or  jet  flap  (JF) , depending 
on  the  amount  of  flow  and  how  it  is  used  to  promote  lift  augmentation.  The 
additional  noise  of  the  IBF  powered-lift  concept  results  from  the  interaction 
of  the  flow  from  the  slot  nozzles  with  the  wing  and  flap  surfaces. 


1.4.1  IBF/BLC 

The  amount  of  flow  from  the  wing  and/or  flap  knee  nozzle  is  relatively  s:..all 
and  is  used  essentially  to  prevent  separation  of  the  local  boundary  layer. 
There  is  no  lift  from  flow  deflection,  and  lift  augmentation  is  primarily 
■raised  by- the  improved  aerodynamic  performance  of  the  flaps  during  take-off 
and  landing. 

1.4.2  IBF/Jet  Flap 

A substantial  amount  of  mass  flow  from  the  power  plant  is  used  to  blow  on  the 
wing/flap  surface  and,  possibly,  from  the  flap  trailing  edge.  Lift  augmenta- 
tion, in  this  case,  is  obtained  by  flap-deflected  flow  and  jet-induced  super- 
circulation, as  well  as  the  improved  aerodynamic  performance  of  the  flaps. 

1.5  AUGMENTOR  WINE  (AW) 

In  the  case  of  the  augmentor  wing  concept,  turbofan  exhaust  air  is  ducted 
first  into  the  wing  and  then  out  of  a wing  nozzle  system  into  a flap  augmentor 
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shroud  system  as  shown  In  Figure  1-tf.  The  additional  lift  during  take-off 
and  landing  Is  obtained  by  the  augmented  and  deflected  Jet  atrs-.*,  the 
boundary- layer  control  provided  by  the  Induced  air,  and  the  superctrculatlon 
produced  by  the  flap  efflux.  Because  of  the  ducting  size  limitations*  these 
systems  are  generally  operated  at  high  nozzle  pressure  ratios  (on  the  order  of 
2.5) • Therefore*  high  noise  levels  can  be  generated  from  this  type  of  lift 
augmentation  and  care  must  be  exercised  In  conf Iguration  design  to  maximise 
shielding  and  to  provide  acoustic  liners  tn  the  wells  of  the  augmentor  (flap) 
shroud.  The  AM  system  can  be  further  classified  depending  on  the  type  of 
engine  us«d> 

1.5.1  Two-Stream  Engine 

The  engine  in  this  case  Is  typically  a low-bypass-ratio  turbofan  having  a fan 
pressure  ratio  between  2.5  and  J.$.  There  are  only  two  exhaust  systems:  the 

fan  exhaust  (which  Is  ducted  tn  Its  entirety  to  the  augmentor  flap),  and  the 
hot  core  Jet  exhaust  (which  may  be  discharged  through  a conventional  or  a 
vectorial  nozzle). 

1.5.2  Three-Stream  Engine 

In  this  case*  there  are  two  streams  of  fan  exhaust  in  addition  to  hot  core 
Jet:  a high-pressure  exhaust  with  pressure  ratio  of  between  2.5  and  3.0  which 

supplies  the  augmentor,  and  a low-pressure  fan  exhaust  with  pressure  ratio  of 
between  1.3  to  1.5  which  is  discharged  through  a conventional  nozzle.  As 
before,  the  turbine  exhaust  may  or  may  not  be  vectored.  O'Keefe  and  Kelly*1** 
indicate  that  the  three-stream  engine  aircraft  Is  slightly  heavier  and  noisier 
than  the  two-stream  version. 

1.6  HYBRID  SYSTEM 

Theoretically,  this  is  a combination  of  any  two  of  the  above-mentioned  con- 
cepts. Practically*  however,  there  is  one  combination  which  has  been  studied 
in  some  depth,  and  which  has  been  shown  to  offer  good  potential.  This  Is  the 
USB/ I BF  concept,  which  is  shown  schematically  In  Figure  1-1g.  Reference  1-2 
describes  one  such  concept  where  the  socondary  blowing  is  a flap  knee. 

Searl e*~3  has  presented  some  of  the  acoustic  test  results  for  this  Hybrid 
configuration. 
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2. NOISE-SOURCE  COMPONENTS 


Sound  from  a V/STOL  aircraft  is  radiated  from  different  aeroacoustic  source 
components.  To  evaluate  the  sound  source  mechanisms  from  which  the  dominant 
noise  radiates,  it  is  necessary  to  estimate  the  noise  levels  from  each  source. 
This  also  would  aid  In  devising  any  viable  noise  control  techniques  and  in 
changing  the  operational  parameters  to  reduce  aircraft  noise.  The  sources  are 
identified  and  their  contributions  to  the  radiated  noise  are  predicted  using 
the  available  theories  and  experimental  data.  In  the  current  incomplete 
development  of  the  state  of  the  art,  engineering  judgement  with  physical  rea- 
soning is  used  in  formulating  the  prediction  model. 


2.1  INTERNALLY  GENERATED  ENGINE  NOISE 

The  noise  generated  within  the  engine  by  the  fan,  compressor,  turbine,  combus- 
tion, and  other  mechanisms  is  propagated  through  the  inlet  and  exhaust  of  the 
jet,  as  shown  in  Figure  1-2.  Although  the  noise-generating  mechanism  itself 
may  not  be  unique  to  the  V/STOL  aircraft,  the  propagation  characteristics  are 
different  and  depend  on  the  location  of  the  engine  and  the  exhaust  relative  to 
the  airframe.  Some  of  the  sources  which  have  been  investigated  experimentally 
or  analytically  are  discussed  below. 


2,1,1  Compressor/Fan  Noise 

Two  types  of  noise  are  generated  by  the  rotating  blades  inside  the  ducts: 

(a)  broad  band,  and  (b)  discrete-tone  noise.  In  addition  to  these  two  types, 
a combination-tone  noise  is  also  generated  by  unsteady  airflow  past  the 
rotors  and  stators  of  the  several  fan  or  compressor  stages.  The  mechanism 
is  generally  thought  of  as  comprising  the  following  unstead-flow  phenomena: 

(1)  Vortex  shedding  from  the  stator  blades. 

(2)  Lift  fluctuations  resulting  from  the  inflow  turbulence 

(3)  Turbulent  boundary  layer  on  the  rotor  and  stator  blades. 
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Figure  1-2.  Basic  Engine  Noise  Sources 


The  discrete-tone  noise  is  generated  at  the  frequency  corresponding  to  the 
integer  multiples  of  the  fundamental  blade  passage  frequency  radiated  from  the 
fans  and  compressors.  It  appears  that  the  dominant  tone  noise  for  fans  with 
inlet  guide  vanes  is  produced  by  the  blade  chop  through  the  wakes  from  the 
inlet  guide  vanes.  It  would  thus  be  expected  that,  for  the  fans  without  IGV's, 
the  magnitude  of  the  sound  generated  is  of  lower  level,  even  though  the  mecha- 
nism is  the  same  as  blade  chop  through  the  inflow  turbulence. 

In  addition,  the  interaction  between  rotor  and  exit  guide  vanes  (EGV)  produces 
noise  in  a way  similar  to  the  IGV-rotor  interaction.  Experimental  data  indi- 
cate that  the  significant  parameter  to  be  considered  in  rotor-EGV  noise  is  the 
blade/vane  number  ratio. 

As  a rotor  tip  speed  goes  to  supersonic  velocity,  a shock  would  be  formed  on 
each  rotor  blade,  and  these  shock  waves  propagate  upstream  and  radiate  as  a 
system  of  Mach  waves  out  of  the  inlet  duct.  These  would  appear  in  the  far 
field  as  a series  of  tones  at  multiples  of  the  blade  passage  frequency. 
However,  the  experimental  results  indicate  that  the  energy  is  redistributed 
into  the  frequencies  other  than  tone  frequencies.  Since  the  resulting  noise 
spectrum  contains  all  harmonics  of  the  rotational  speed,  it  is  known  as 
combination- tone  noise  (buzz-saw) , consisting  of  a series  of  tones,  each  with 
the  same  order  of  magnitude  and  separated  by  a fixed  frequency.  The  presence 
of  inlet  guide  vanes  attenuates  the  Mach  wave  system,  end  hence  the  combina- 
tion tone  noise  is  insignificant  compared  with  the  blade-passage  frequency  or 
jet  noise. 

There  are  several  theoretical  methods  to  predict  fan  noise.  But  due  to  some 
of  the  uncertainties  of  the  generating  mechanisms  and  the  complexities  of 
propagation  through  the  inhomogeneities  within  the  inlet  and  exhaust 
ducts,  there  is  no  single  unified  method. 

Recently  Burdsall  and  Urban-*-^  have  developed  a prediction  procedure  for  the 
fan/compressor  noise  using  experimental  data  which  requires  detailed  geometri- 
cal and  operational  parameters.  The  results  apply  primarily  for  single-stage, 
guide-vaneless  fan/compressors.  The  other  application  features  are:  design 

rotor  tip  speed,  between  1100  and  1 600  ft.  per  second;  fan  pressure  ratio, 
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between  1.35  and  1.6;  fan  diameter,  from  30  to  100  inches;  and  fan  gap/chord 
ratios  between  0.5  and  1.1.  However,  for  advanced  design,  the  details  of  a 
new  engine  are  seldom  available  and  may  vary  from  one  engine  to  the  other. 

Also,  since  the  detailed  development  of  fan/compressor  noise  prediction  method 
is  beyond  the  scope  of  this  study,  a simplified  prediction  procedure  developed 
and  used  in  the  previous  report  is  adapted.  The  expression  is  derived  from 
the  data  in  reference  1-5  where  it  is  given  for  the  maximum  500-foot-ai ti tude 
noise  level  (PNL)  as  a function  of  weight  flow  and  fan  pressure  ratio 
as: 

PNL  - 10  log10  W + 20  log10  (PR*286 -1 ) + K,  (l) 

where  K » 100  for  single  stage,  and 

K « 105  for  two-stage  fan 

W * weight  flow  through  the  fan  (pounds  weight/sec) 

PR  = fan  pressure  ratio. 

If  it  is  assumed  that  the  radiated  0ASPL  of  the  fan/compressor  has  the  same 
relation  as  above  except  for  the  constant,  then, 

286 

0ASPL  - 10  log10  W + 20  log10  [PR'  -1]  -20  log10  R+K.  (2) 

The  directivity  of  the  noise  is  assumed  to  be  the  same  as  that  given  in  Ref- 
erence 1-4,  which  is  illustrated  in  Figure  1~3-  The  nondimensional  spectral 
distribution  given  in  Figure  1-4,  derived  from  the  experimental  data  is  used 
for  the  noise  prediction.  The  constant,  k,  in  equation  (2)  is  derived,  to  give 
the  same  PNL  as  given  in  equation  (1),  to  be  127. 

2.1.2  Turbi ne  Noi se 

Turbine  noise  can  become  a floor  for  the  engine  noise,  when  the  fan/compressor 
and  the  jet  noise  are  reduced  either  by  treatment  of  the  inlet  and  exhaust  fan 
ducts  and/or  by  the  use  of  high-bypass-ratio  jet  engines.  Thus,  in  recent 
years,  the  need  to  predict  turbine  noise  has  been  realized.  The  fundamental 
mechanisms  of  noise  generation  in  a turbine  are  similar  to  those  of 
compressors/fans.  However,  the  test  results  of  far-field  noise  from  a turbine 
indicate  that  a typical  turbine  noise  spectrum  consists  of  high-frequency 
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tones  (corresponding  to  the  turbine  blade  passing  frequencies)  superimposed  on 
a broadband  noise.  Turbine  noise  is  generally  dominant  in  the  aft  quadrant 
and  peaks  between  110°  and  120°  from  the  inlet. 


Kazin  and  Matta^*^  have  developed  a semi-empirical  relation  to  predict  the 
turbine  noise.  This  method  uses  theoretical  developments  of  noise-generation 
mechanisms  similar  to  that  of  fan  and  compressor,  and  a large  body  of  test 
data.  This  method  requires  knowledge  of  the  stage  pressure  ratios,  the  blade 
tip  speeds,  the  turbine  stage  exit  area,  and  the  spacing  between  the  blade 
rows.  From  these  results,  the  following  equation  for  the  OASPL  at  0 = 90°  is 
derived. 

OASPL  = 8.75  log10  (~)  + 20  log10  (~^)  + 10  log10  ^ + 138. 9,  (3) 

stage  a R 

where 

,AT>  _ . / 1 , Ideal  work  extraction 

' TJ  W " Inlet  Enthalpy 

PR  = total-to-static  pressure  ratio  of  all  the  stages 
Vre]  * relative  tip  speed  at  the  inlet  of  the  first  stage 

= yJ^Re]  + ^Axill  Flow’  ft/sec- 

Ca  = speed  of  sound,  ft/sec. 

Aj  = turbine  stage  exit  area,  ft2 
Y = ratio  of  specific  heats,  1.4 
R = distance  from  the  jet  exit  to  the  observer,  ft. 


It  is  assumed  that  the  peak  OASPL  occurs  at  9 = 120°  from  t/ie  inlet.  The 
directivity  pattern  given  in  Reference  1-6  is  used  to  compute  the  OASPL  at  any 
given  direction.  This  directivity  D 1 ( 8 ) is  derived  empirically  from  the  test 
results  and  is  shown  in  Figure  1-5.  The  OASPL  at  any  given  angle  is  given  by, 


OASPL  (9)  = OASPL  0 = 9Q0  + Dl  (9)  . 
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Figure  1-i 


The  one-third  octave  band  spectral  distribution  is  presented  in  Figure  1-6,  as 
a function  of  the  percentage  of  the  engine  thrust.  Turbine  noise  prediction 
could  be  improved  and  needs  further  study  on  the  effect  of  various  parameters 
influencing  the  far-field  noise. 

2.1.3  Excess  Engine  (Core  and  Tailpipe  Noise 

Test  results  of  jet  noise  studies^"'7  indicate  that  the  sound  intensity  in  the 
low-velocity  range  does  not  necessarily  follow  velocity  raised  to  the  power  8. 
In  general,  this  velocity  exponent  is  less  than  8;  the  actual  value  depends  on 
the  factor  such  as  the  type  of  noise  generated  upstream  of  the  nozzle  exit, 
and  the  turbulence  level  of  the  flow  before  it  leaves  the  nozzle  exit.  In  the 
case  of  real  engines,  the  internal  noise  may  consist  of  combustion, ' turbi ne, 
and  obstruction  noise.  In  addition  to  these  internal  noise  sources,  the  tur- 
bulent flow  interfering  with  the  nozzle  exit  plane  generates  noise,  which  may 
behave  like  that  from  dipole  sources.  This  additional  noise  of  the  jet  at  low 
jet  velocities  is  termed  "excess  noise"  which  includes  the  noise  generated  by 
combustion,  flow  interaction  with  the  obstructions  in  the  tailpipe,  and  the 
interaction  of  turbulence  with  the  nozzle  lip. 

Crighton-*-5  has  considered  the  monopole  (fluctuating  mass)  and  dipole  fluc- 
tuating thrust)  as  sources  located  at  the  nozzle  exit  plane  and  derived  the 
following  expressions  for  the  radiated  sound: 


A^ 

OASPL  = 60  log10  Vj  + 10  logjQ  — +20  log^e 

R 

+ 10  log io  1(1  " cos  (180  - 6)]  + K (4) 

where  K=20.  The  peak  frequency  of  the  excess  noise  occurs  at  a nondimen- 
sional  frequency,  fD/Vj,  corresponding  to  0.3.  The  one-third  octave  spectral 
shape  shown  in  Figure  1-7  is  derived  somewhat  arbitrarily  at  this  point. 


2.2  JET  NOISE 

At  the  present  time,  there  is  no  single  satisfactory  jet  noise  prediction 
method.  Extensive  theoretical  and  experimental  investigations  are  currently 
being  conducted  at  Lockheed-Georg i a Company^-^*  1-10  to  develop  a unified  jet 
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Figure  1-6.  Spectral  Distribution  of  Turbine  Noise 


Figure  1-7.  Spectral  Distribution  of  Excess  Noise 


noise-prediction  model.  This  model  accounts  for  the  temperature  changes,  air- 
craft motion  and  from  low  subsonic  to  supersonic  jet  Hach  numbers.  As  soon  as 
the  results  of  this  work  are  available,  they  can  be  incorporated  into  this 
prediction  program  without  much  effort. 

The  program  presently  uses  a method  developed  recently  by  Stone^-TT  for  NASA's 
Aircraft  Noise  Prediction  office,  which  is  a semi-empirical  relation  based  on 
the  test  results  of  model  jet  flows  and  Lighthill's  theory.  This  method  is 
adapted  to  suit  the  computer  program  and  to  be  consistent  with  the  prediction 
procedure  for  the  other  noise  sources  of  V/STOL  aircraft.  The  jet  noise  pre- 
diction is  only  for  subsonic  velocities  with  a single  mixed-flow  exhaust  from 
circular,  plug,  and  slot  nozzles,  and  separate  flow  exhaust  from  co-annular 
nozzles.  Since  the  effect  of  forward  speed  is  included  separately  in  this 
report,  the  relative  velocity  effect  is  left  out  in  the  following  equations. 


2.2. j Mixed  Flow  Jet  Exhaust 

Circular  Nozzles  - The  overall  sound  pressure  levels  (OASPL)  at  90°  from  the 
inlet  is  given  by: 


OASPL 


0=90° 


Am  P 3 

10  log io  + 20  ,09lO  * 1,0  io9l°  C 


-a 

ISA 


+ 10 


3<r-> 


3.5 


V.  3.5 

0.6  + (/) 


- 1 


pi  VJ 

l°9io  p + 75  log10  (£-) 


- iu  log io 


Vj  4'5 

1 + 0.01  {—) 


+ K , 


(5) 


where  subscripts  a and  ISA  refer  to  amoient  conditions  and  international 
standard  atmospheric  conditions,  respectively. 


The  source  convection  and  refraction  through  flow  shear  layer  affect  the 
directivity  of  the  radiated  noise  as  a function  of  angle  from  the  inlet.  From 
the  experimental  results  and  the  theoretical  description  of  the  convection 
and  refraction  effects,  the  spectral  distribution  given  ir.  Figure  1-8  is 


1-18 


LOG1q  (MODIFIED  STROUHAL  NUMBER) 


derived  for  different  angles.  The  nond I mens  tonal  frequency  parameter  Is  given 
as. 


fD  fTj  0-"  tl  + c°s6‘) 

• vj  (t7> 


where  6'  * 6 (V j/Ca) ° ’ 1 . 

Plug  Nozzles  ~ The  OASPL  for  plug  nozzles  at  6 = 90°  is  given  as, 


A \ . .a  i _ / a \ . i. a i / ^a 
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+ 3 logjo  (0.01  + —•)  + K,  (7) 


where  h ■ gap  height 

D “ circular  nozzle  diameter  at  nozzle  exit  plane. 


The  directivity  and  spectra  are  assumed  to  be  the  same  as  for  a circular 
nozzle,  except  that  the  nond i mens i ona 1 frequency  parameter  is  redefined  to 
include  the  effect  of  the  plug  as, 
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°h  °*4 

f0e  (£) 


T 0.4  . (l  + COS0  '•) 


(8) 


where  ■ hydrau’lc  diameter  of  the  nozzle 

De  ■ equivalent  circular  nozzle  diameter. 
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Slot  Nozzles  - For  the  slot  nozzle  of  aspect  ratio  (width-to-height  ratio) 
less  than  about  10,  the  OASPL,  directivity,  and  the  spectra  are  predicted  in 
the  same  way  as  for  a circular  nozzle.  However,  the  modified  nondimensional 
frequency  parameter  derived  for  a plug  nozzle  as  In  equation  (8)  is  used. 


2.2.2  Co-axial  Nozzles 

The  experimental  data  and  theoretical  formulations  to  predict  noise  from  co- 
axial jets  are  sparse.  The  following  empirical  relation  is  derived  for  jet 
noise  as  a function  of  area  ratio,  velocity  ratio,  and  temperature  ratio  with 
core  jet  as  reference: 


OASPL  - 0ASPlc  ^ - 5 l°g10(^)  + 10  log10 


v "> 

' (1  - TT-)  +1-2 
V1 


1 + 


1 + 


A V 
rt2v2 

A V 2 

Vl 

"aTF 


(9) 


where  0ASPLc  is  the  OASPL  for  core  jet  alone  and  is  given  by  the  equation  for 
circular  nozzle  (equation  5)  or  plug  nozzle  (equation  7). 


The  exponent  m is  given  by, 


for 
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A 2 

m * 6.0  for  t—  > 29*7  • 

rt2 


The  directivity  and  spectra  are  assumed  to  be  the  same  as  for  a circular 
nozzle  with  the  modification  of  Strouhal  number  given  as, 
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T2 

1 - F(s)  =2- 

'l 

where  Sj  is  the  Strouhal  number  of  core  jet  alone  as  given  in  equation  (6)  and 
F(s)  is  given  in  Figure  1-9. 

2.3  LI  FT- AUGMENTATION  SYSTEM  NOISE 

The  noise  generation  and  propagation  of  the  lift-augmentation  of  various  jet- 
powered-lift  systems  is  discussed.  The  common  noise  source  mechanisms  for  all 
the  configurations  except  augmentor  wing  and  vectored  thrust  are:  impingement, 

wall  jet,  trailing  edge,  and  trai 1 ing-edge  wake.  In  the  case  of  vectored 
tr.rust,  noise  generated  by  the  flow  over  the  turning  vanes  is  the  only  noise 
source  in  addition  to  the  basic  jet  engine.  However,  the  increased  flow  tur- 
bulence and  the  change  in  the  jet  flow  direction  do  change  the  characteristics 
of  the  jet  noise.  The  noise  mechanism  of  the  augmentor  wing  propulsive-lift 
system  is  too  complicated  to  allow  for  further  separation  of  the  noise  sources. 
The  sources  of  various  propulsive  lift  systems  are  shown  in  Figure  1-10. 

2.3.1  Impingement  Noise 

Experimental  observations  indicate  that  the  radiated  sound  of  a jet  flow  is 
increased  substantially  when  a rigid  surface  is  introduced  into  the  flow.  One 
of  the  mechanisms  of  this  additional  noise  is  the  impingement  of  the  turbulent 
flow  on  a surface.  The  impingement  region  is  defined  as  the  region  in  the 
vicinity  of  the  geometrical  stagnation  point  on  the  surface,  where  the  simi- 
larity of  the  flow  cannot  be  established.  This  noise  is  a function  of  the 
flow  characteristics  (turbulence  and  mean  flow)  and  the  geometry  of  the  rigid 
surface  such  as  angle  of  inclination  to  the  flow  direction  and  the  dimensions. 

Since  the  physics  of  the  generating  mechanism  of  impingement  noise  is  not 
completely  understood  at  the  present  time,  a theory  cannot  be  developed. 
However,  the  experimental  resul  ts^"-^>  ~ ^ indicate  that  the  impingement 
noise  is  primarily  due  to  the  Reynolds'  stresses  (quadrupole  sources)  modified 
by  the  presence  of  the  rigid  surface.  It  is  suggested  in  reference  1-12  that 
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(b)  Externally  Blown  Flap 


(c)  Upper  Surface  Blown  Flap  Configuration 

WALL  JET 


(d)  Internally  Blown  Flap/Boundary  Layer  Control 


Figure  1-10.  Noise  Sources  of  Powered  - Lift  Systems 
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the  impingement  area  and  the  impingement  velocity  are  the  correlation  parame- 
ters to  be  used  in  predicting  the  far-field  noise  from  impingement.  The 
impingement  area  is  somewhat  arbitrarily  defined  at  this  time  as  the  area 
within  50%  of  the  peak  impingement  velocity  in  the  plane  of  the  rigid  surface. 
The  peak  impingement  valocity  is  defined  as  the  maximum  velocity  in  the  plane 
of  the  rigid  surface  in  the  absence  of  the  surface.  Therefore,  the  equation 
for  the  overall  sound  intensity  is  given  as: 


, paAi  n . 9 
I — V}p8  s t n2a 


where  Ai  is  the  impingement  area 

Vjp  is  the  impingement  velocity 

a is  the  angle  between  the  jet  axis  and  the  surface. 

To  predict  the  impingement  noise  of  high-lift  systems,  a is  the  angle  between 
the  jet  axis  and  wing/flap  surface  at  the  geometrical  impingement  point.  (In 
the  typical  EBF,  the  mean  flap  angle  is  considered  to  be  a.) 

Assuming  Pa  and  ca  are  constant,  the  expression  for  OASPL  may  be  derived  as: 


(0ASPL)9=90O  - 10  log10  A'i  -^n2-Ct  + 80  log10  Vjp  + K . (10) 


The  impingement  velocity  is  estimated  by  the  empirical  relation,  derived  from 
the  experimental  results  of  reference  1-1 k as, 


V. 

_i£  = 
V, 


1 + 


0.15  Xj 


■l/a 


Cn  De  / 1+Mj  J j 


where  a * ^ [1  + 8/3  (De/Dh  - 1)] 


-1 


X|  ■ distance  between  the  nozzle  exit  plane  and  the  rigid  surface 
(wing/flap)  along  the  jet  axis 
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De  **  equivalent  circular  nozzle  diameter  with  the  same  exit  area  of  the 
nozzle  * 1-J  A/it 

0^  * hydraulic  diameter  for  slot  and  multi-lobed  nozzles 
= De  for  circular  and  coaxial  nozzles 

Cn  = effective  nozzle  coefficient  {assumed  to  be  unity) 

Mj  = jet  Mach  number. 

The  impingement  area  is  given  as, 

Aj  = 1 sh { for  slot  nozzle 

= -rrdi2A  for  axisymmetrical  nozzles 
ls  = nozzle  width  (for  slot  nozzles) 

hj  and  dj  * width  and  diameter  measured  in  the  impingement  plane  for  50%  of 
the  peak  impingement  velocity  for  slot  and  circular  nozzle, 
respectively. 


The  dimensions  hj  or  dj  are  estimated  from  the  empirical  relations  given  by 
Bradbury-*”-^  as: 


hj  xj 

T = 0,109  T 
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1 + — 9.:.§§—  /-Xl 

/ u(y-D  h 


for  slot  nozzle,  (12) 


d;  Xj 

r~  °-8s  r 

e e 


0.27  xi  T 


1 + ITFiT  * cr 


for  circular  nozzle,  (13) 


where  u = jet  veloci ty/free-stream  velocity. 


Oi rectivi ty  - The  directivity  of  OASPL  is  derived  from  the  experimental  data 
of  reference  1-13  and  is  presented  in  Figure  1-11.  Figure  1-11a  gives  the 
directivity  index  DI(9,a)  to  be  added  to  the  OASPL  predicted  from  equation 
(10)  as  a function  of  9 and  a.  (See  the  insert  in  Figure  1-11  for  the  defi- 
nition of  9 and  a.)  The  directivity  in  <f>-plane  is  assumed  to  be  as  A(9+a) cos<}>, 
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where  A (6  + a)  is  derived  from  the  experimental  data  and  given  in  Figure  1 -1 1 b; 
<j>=90°  corresponds  to  the  fly-over  plane. 


Spectral  Distribution  - There  is  neither  theoretical  explanation  nor  enough 
experimental  data  available  to  estimate  the  spectral  distribution  of  impinge- 
ment noise  as  a function  of  directivity.  In  this  report  the  nondimensional 
spectral  distribution  derived  from  the  experimental  data  of  reference  (15)  is 
used  and  assumed  to  be  independent  of  direction.  Nondimensional  frequency 
fDi/Vjp  sin^  appears  to  correlate  well  with  the  experimental  data.  The  non- 
dimensional  spectral  distribution  based  on  one-third  octave  frequency  shown  in 
Figure  1-12  is  used  in  the  prediction  model. 

2.3.2  Wal 1 Jet  Noise 

In  the  USB  and  IBF  cases  the  wall  jet  is  formed  immediately  after  the  impinge- 
ment and/or  attachment  of  the  jet  flow  on  the  wing/flap  surface.  But,  in  the 
typical  EBF  configuration,  the  impingement  location,  and  for  IBF/JF,  the  wing 
nozzle  location  are  very  close  to  the  trailing  edge.  Therefore,  a developed 
wall  jet  does  not  exist  for  these  configurations. 

As  the  free  boundary  region  of  the  wall  jet  (away  from  the  surface)  generates 
the  noise  by  the  process  of  mixing  with  the  ambient  air,  the  mechanism  is  simi- 
lar to  fluctuating  stresses  (quadrupole  sources).  Close  to  the  surface  (inner 
layer),  the  large  mean  shear  produces  a high  turbulence  intensity.  The  noise- 
generation  mechanism  in  the  inner  layer  is  associated  with  the  induced  fluc- 
tuating pressures  on  the  surface  and,  therefore,  is  from  fluctuating  forces 
(dipole  type).  Even  though  the  turbulence  intensity  is  large,  the  volume  of 
the  inner  layer  is  very  small  compared  with  that  of  the  free  boundary  region. 
Therefore,  in  wall-jet  r.oise  prediction,  the  noise  generated  in  the  inner 
layer  region  is  neglected  except  at  the  trailing  edge  (which  is  discussed  in 
subsection  A. 3. 3) • 

Reddy  and  Brown^-^  and  Reddy^-^  have  discussed  the  noise  mechanism  of  a wall 
jet  with  reference  to  USB.  The  acoustic  intensity  generated  in  the  wall  jet 
region  of  USB  and  IBF  can  be  written  as: 
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' - r?  (w)  vm« 

where  b,  i = the  width  and  length  of  wall  jet,  respectively 
Vm  = maximum  velocity  in  the  wall  jet. 

Assuming  that  pa  and  Ca  are  constant,  the  wall-jet  noise  at  an  angle  6 = 90°  is 
given  by: 

OASPL9=9o0  = 10  log10(^|)  + 80  log10  Vm  + K (W») 

where  K = 105. 

Directivity  and  Spectra  - The  directivity  of  OASPL  is  derived,  based  on  the 
knowledge  that  most  of  the  sound  radiates  perpendicular  to  the  surface.  Since 
no  exper inrental  data  are  available  to  indicate  the  directivity  of  the  wall-jet 
noise  alone,  the  directivity  given  in  Figure  1-13  is  derived  somewhat  arbi- 
trarily and  accounts  for  the  diffracted  sound  field  for  a finite  or  a semi- 
infinite surface. 

The  spectral  distribution  is  assumed  to  depend  on  the  thickness  of  the  wall 
jet,  6,  and  the  maximum  velocity.  Therefore,  the  nondimens ional  frequency 
(Strouhal  number)  may  be  written  as: 


The  peak  Strouhal  number  is  assumed  to  be  1.0,  and  the  one-third  octave 
spectral  distribution  is  shown  in  Figure  1 -*  1 ^ . 

2.3.3  Trai 1 ing-Edge  Noise 

The  test  results  of  EBF  and  USB  lead  many  people  to  assume  that  trai 1 ing-edge 
noise  is  a dominant  source  of  the  high  lift  system.  Hayden-Z-2#  formulated  an 
analytical  expression  for  the  trai 1 ing-edge  noise  as  the  dipole  sources  gener- 
ated by  the  fluctuating  momentum  imparting  from  the  surface  at  the  trailing 
edge  to  the  unbounded  free  field.  He  showed  that  the  radiated  sound  intensity 
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Figure  1-14.  Spectral  Distribution  of  Wall  Jet  Noise 


varies  as  a typical  velocity  raised  to  the  power  6.  Grosche^-^  from  his  ex- 
perimental investigation  concluded  that  the  dominant  part  of  the  total  sound 
energy  of  the  jet  flow  over  a finite  plate  is  generated  from  the  region  close 
to  the  trailing  edge.  His  results  indicate  that  the  sound  intensity  varies  as 
the  velocity  raised  to  power  5*  The  jet  flow  leaving  the  trailing  edge  mixes 
with  the  ambient  air  and  generates  very  high  turbulence  intensities  near  the 
trailing  edge.  Ffowcs-Wi 1 1 i ams  and  Hall^-^  have  studied  the  effect  of  fluc- 
tuating stresses  (quadrupole  sources)  near  the  scattering  edge  of  a semi- 
infinite rigid  plane.  They  found  for  the  eddies  near  the  edge  (2kr<<l , where 
k is  the  wave  number,  and  r is  the  distance  between  the  edge  and  the  turbulent 
eddies),  the  far-field  sound  intensity  varies  as  the  typical  velocity  raised 
to  the  power  5- 

Powell^"^  argued,  for  the  case  of  turbulent  flow  over  a rigid  surface  reach- 
ing the  edges  and  beyond,  that  there  is  a possible  flow  around  the  edge; 
therefore,  a true  dipole  radiation  should  emanate  from  the  edge  of  the  plate. 
The  radiated  sound  power  cf  this  "edge  noise"  varies  as  the  power  of 
typical  velocity. 

From  these  theoretical  developments  and  the  experimental  results,  it  is  rea- 
sonable to  assume  that  the  trailing  edge  noise  is  an  important  noise  source  of 
USB,  EBF,  and  IBF  configurations.  The  magnitude  and  the  spectral  distribution 
of  this  noise  source  depends  on  the  turbulence  intensity  interfering  with  the 
edge,  the  spectral  characteristics  of  the  turbulence  generated  near  the  trail- 
ing edge,  and  the  mean  velocity  gradient.  At  the  present  time,  it  is  not 
possible  to  separate  these  effects  an^  formulate  the  radiated  noise  of  the 
trailing  edge  accurately  as  a function  of  operational  and  geometrical  vari- 
ables. Therefore,  the  tra i I ing-edge  noise  is  estimated  assuming  that  the 
pertinent  parameters  are  peak  velocity,  width,  and  the  thickness  of  the  flow 
at  the  trailing  edge.  The  radiated  sound  intensity  of  the  tra i I ing-edge  noise 
may  be  wr i tten  as : 

I - ^ Vt5  (W » 6 e ) 

where  Vte  = maximum  velocity  at  the  trailing  edge 
W = width  of  the  jet  at  the  trailing  edge 
6 te  = jet  thickness  at  the  trailing  edge. 
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Assuming  the  density  and  speed  of  sound  to  be  constant,  the  equation  for  OASPL 
may  be  written  as: 
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0ASPLe=90o  = 50  Jog10  Vte  + 10  log10  (-—■)  + K (15) 

where  K = 

Directivity  and  Spectra  - From  the  experimental  results  the  directivity  of 
OASPL  is  derived  to  be: 


„ 9 + 6f  i 

D I (9 , 4>)  = 10  log 20  {cos2  ( — ^ — ) • j (1  + si  n<J>)} 


(16) 


where  0 is  the  angle  from  the  inlet  axis 
6f  is  the  flap  angle 

<j>  * elevation  angle  (<}>  90°  flyover  location). 

The  nondimens ional  spectral  distribution  is  assumed  to  depend  on  the  velocity 
and  the  jet  thickness  at  the  trailing  edge  and  may  be  written  as: 


The  nondimens ional  spectral  distribution  of  the  trai 1 i ng-edge  noise  obtained 
from  the  experiments  of  reference  1-17  is  used  in  prediction.  These  are  pre 
sented  in  Figure  1-15- 


Evaluation  of  the  Flow  Characteristics  at  the  Trailing  Edge  - Yu,  Reddy,  and 
Whi tesides^-22  measured  the  flow  characteristics  for  a simplified  configura- 
tion of  EBF.  Since  they  are  the  only  experimental  data  available,  these 
results  are  generalized  to  estimate  the  velocity,  flow  width,  and  flow  thick- 
ness at  the  trailing  edge  of  the  EBF.  Flow  width  is  defined  as  width  along 
the  trailing  edge  between  50$  of  the  maximum  velocity.  Wall-jet  thickness  is 
defined  as  the  dimension  between  the  trailing  edge  and  50$  of  the  maximum 
velocity.  The  width  and  thickness,  respectively,  are  given  by 
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gur.’  1-15.  Spectral  Distribution  of  Trailing  Edge  Noise 
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where  x1  is  the  length  between  the  trailing  edge  and  the  geometrical 

impingement  point  (intersection  of  jet  axis  and  the  wing/flap 
surface) 

Dj  is  the  diameter  of  a circular  nozzle  or  width  of  a slot  nozzle. 
D2  is  the  diameter  of  a circular  nozzle  or  height  of  a slot  nozzle. 

The  maximum  velocity  at  the  trailing  edge  is  estimated  from  the  empirical 
curve  shown  in  Figure  1 - 1 6 . 


In  the  case  of  USB  and  IBF,  there  is  no  systematic  experimental  data  available 
to  predict  the  jet  spreading  as  a function  of  the  geometrical  properties  of 
the  wing/flap.  Therefore  the  jet  width  at  any  axial  distance  x from  the 
nozzle  exit  is  assumed  to  be  the  same  as  the  width  of  the  nozzle.  The  jet 
thickness  6te  is  derived  from  the  experimental  data  of  reference  19  as, 
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(17) 


where  Rl  = f'ow  run  length  (distance  between  the  nozzle  exit  and  flap 
trai  l i ng  edge 

Rc  = radius  of  curvature  of  the  flap 
0C  = flap  angle  (radians). 

In  a typical  US8  configuration,  the  trailing  edge  velocity  is  same  as  the  jet 
velocity.  However,  if  the  flap  length  is  unusually  large,  then  the  actual 
trai 1 ing-edge  velocity  should  be  computed.  In  this  formulation,  it  is  also 
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assumed  that  a slot  nozzle  is  used  for  the  case  of  USB.  However,  when  a 
nozzle  of  other  than  rectangular  shape  is  used,  it  is  necessary  to  establish 
the  equivalent  width  and  height  of  the  slot  nozzle. 

2.3 .4  Trai 1 ing-Edge  Wake  Noise 

The  flow  after  leaving  the  trailing  edge  (trai 1 ing-edge  wake)  possesses 
characteristics  similar  to  those  of  a free  jet.  The  mean-flow  profiles  in 
this  region  are  nons/.nrnetr i cal  with  greater  shear  closer  to  the  surface/edge 
than  the  region  away  from  the  surface  as  shown  in  reference  1-16.  Even  though 
the  noise-generating  mechanism  is  basically  the  fluctuating  stresses  (quadru- 
ple sources),  the  propagating  characteristics  do  change  due  to  the  change  in 
the  velocity  gradients.  The  source  strength  distribution  in  the  flap  wake 
taken  from  reference  1-23  are  shown  in  Figure  1-17*  It  should  be  noted  that 
the  only  mixing  noise  (in  the  wake)  away  from  the  edge  is  estimated.  The 
interaction  of  turbulence  near  the  trailing  edge  with  the  edge  is  accounted 
for  in  the  trai 1 i ng-edge  noise.  Since  there  are  not  enough  experimental  data 
available  to  account  for  the  convection  and  refraction  effects  of  the  wake 
noise,  a simple  empirical  relation  is  used  to  estimate  the  wake  noise: 

W5 

OASPL  = 80  Iog10  Vte  + 10  log10  (--££•)  + K . (18) 

R 

The  velocity,  width,  and  thickness  of  the  wall  jet  at  the  trailing  edge  are 
evaluated  as  described  for  the  trailing  edge  noise. 

Directivity  and  Spectra  - "he  directivity  is  derived  somewhat  arbitrarily, 
using  some  of  the  jet  noise  experimental  data  and  is  given  in  Figure  1 - 1 8 . 

The  spectral  distribution  is  assumed  to  be  the  same  as  jet  noise  with  the  jet 
thickness  at  the  trailing  edge  as  a controlling  variable.  The  nondimensional 
frequency  is  given  as: 
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Distribution  in  the  Flap  Wc.1" 


2.3.5  Augmentor  Wing  Noise 


Since  the  noise-generating  mechanism  of  the  augmentor  flap  high-lift  system 
is  complex,  it  is  not  meaningful  to  divide  sources  further.  The  experimental 
data  are  used  to  predict  the  noise  of  the  augmentor  flap  of  a baseline  con- 
figuration, which  is  defined  as  a slot  nozzle  with  a hard  wall  flap  and  a 
shroud  as  shown  in  Figure  1 — 1 e . Dorsch  et  al^~^  and  Gibson^"^  have  conduct- 
ed some  experiments  to  study  the  noise  characteristics  of  AW  using  a slot 
nozzle  and  a hard  wall  flap  and  shroud.  These  experimental  data  are  used  to 
develop  a noise  prediction  model.  The  peak  OASPL  is  given  by: 

0ASPLpeak  * 60  }°9io  Vj  + 10  1og10  ^ - 5 log10^  + K . (19) 

where  Vj  = velocity  of  the  jet  (in  the  wing) 

An  =*  area  of  the  wing  nozzle 
Lp  = length  of  the  flap. 

The  peak  OASPL  occurs  at  azimuthal  angle,  0 peak  = [180°  - (6f  + 45°)].  The 
directivity  is  established  as  given  in  Figure  1-1 9a  with  reference  to  0peak 
using  the  experimental  data.  The  directivity  as  a function  of  elevation  angle 
(from  fly-over  plane  to  sideline  plane)  is  also  empirically  derived  and  given 
in  Figure  1-1 9b - 

Assuming  the  spectral  distribution  of  radiated  sound  to  be  independent  of  the 
azimuthal  and  elevation  angle,  spectral  distribution  based  on  one-third  octave 
band  is  shown  in  Figure  1-20.  The  Strouhal  number  is  based  on  the  hydraulic 
diameter  of  the  nozzle  and  the  jet  velocity. 

Reference  1-1  gives  the  test  data  for  the  augmentor  wing  using  mu  1 1 i -element 
nozzles  and  treated  flap  and  shroud.  These  data  are  incorporated  in  the  AW 
noise-reduction  features. 

2.4  NON-PROPULS  I VE  NOISE 

Airframe  aerodynamic  noise  and  auxiliary  power  unit  noise,  called  "non- 
propulsive"  sources,  are  dlccussed  below. 
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Figure  1-20.  Spectral  Distribution  of  AW  Noise 


2.4.1  Airframe  Noise 


Airframe  noise  is  defined  as  the  noise  generated  by  the  motion  of  the  aircraft 
through  the  air.  This  excludes  the  noise  produced  by  the  propulsive  system 
and  other  power  generating  units  such  as  auxiliary  power  units.  In  recent 
years,  there  were  several  test  programs  conducted  by  Healy2-2£,  1-27 1 
Gibson2-25>  1-29 t ancj  Smi th  et  to  measure  the  airframe  noise  of  dif- 

ferent size  aircrafts.  Healy,  in  reference  1-26,  derived  the  expression  for 
the  OASPL  of  an  aircraft  using  the  measured  dat  for  four  aircrafts  with  two 
engines  and  a glider  as: 


OASPL  = 10  log10 


si. 

R2 


Va'sW 
(AR) 4 


+ 28.0  . 


In  deriving  this  expression,  the  following  assumptions  were  made: 

(1)  The  exponents  of  velocity  and  AR  are  integers. 

(2)  The  noise  generation  mechanism  is  pure  dipole. 

(3)  The  measurements  are  conducted  in  far  field  (compact  source 
assumption) . 


Hardin^-*^  developed  an  empirical  relation  using  the  published  and  unpublished 
test  data  of  several  commercial,  military,  and  executive  aircrafts  of  all 
sizes.  Linear  regression  analysis  was  applied  for  53  measurements  to  obtain 
the  relation: 


0ASpL(Fiyover)  10  *°9l0 


w4.93  c 0.72' 

Va  ,SW 


n 1*  62  2-06 

R ‘(AR) 


32.56  . 


(20) 


This  analysis  shows  that  the  sound  does  not  decrease  according  to  the  far- 
field  spherical  divergence  law  (l/R2).  This  has  probably  occurred  because 
some  of  the  measurements  used  in  the  analysis  are  not  really  of  the  far-field 
type.  The  velocity  index  is  close  to  5,  which  may  be  due  to  the  combination 
of  sources  with  different  velocity  indices.  The  primary  difference  between 
these  two  equations  is  the  exponent  of  aspect  ratio,  AR.  There  is  no  theo- 
retical justification  to  prefer  one  over  the  other. 
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Revel 2-33  attempted  to  derive  an  expression  relating  the  radiated  noise 
to  the  steady-state  lift  and  drag.  Hardin  et  aL^~^  also  attempted  to  esti- 
mate tne  noise  levels  by  computing  the  noise  generated  by  each  component,  but 
the  state  of  the  art  does  not  permit  airframe  noise  prediction  by  the  compo- 
nent method  with  any  confidence. 

The  empirical  relation  developed  by  Healy  or  Hardin  et  al  should  be  used  to 
predict  the  noise  levels.  Since  the  relation  developed  by  Hardin  is  more 
scientific  and  used  more  data  than  Healy's,  the  following  equation  which  is 
a modification  of  equation  (20)  is  used: 


OASPL  = 10  log io 


Sin2<fr  V5  ’ SW  1 
R2  ’ (AR)2  0-Ma)4 


+ 7.0  . 


(21) 


The  nondimensional  spectra  based  on  one-third  octave  band  is  given  in  Figure 
1-21,  where 

fmax  53  1 *3  ^a/tO  - Ma  cos<|>)  and 

t = maximum  thickness  of  the  wing 
Ma  = aircraft  Mach  number 
<t>  = elevation  angle 
Sy  = wing  area. 

2.k.2  Auxiliary  Power  Unit  Noise 

The  noise  generated  by  tie  auxiliary  power  unit  (APU)  has  several  components 
(such  as  compressor,  turbine,  and  exhaust).  In  general,  when  the  aircraft  is 
in  operation  with  the  propulsive  system  working,  the  noise  generated  by  the 
APU  is  not  significant.  However,  when  the  aircraft  is  stationary  and  the  APU 
is  in  operation,  this  noise  source  could  be  important. 

APU  noise  is  estimated  using  the  near-field  noise  test  data  from  references 
1-34  and  1-35  using  the  maximum  shaft  horsepower  or  the  maximum  bleed  air  in 
pounds  per  minute  as: 
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The  noise  prediction  method  developed  here  is  for  jet  propelled  V/STOL  aircraft 
configurations.  The  geometry  of  the  aircraft  flight  path  with  respect  to  the 
observer  used  in  computing  the  noise  levels  is  shown  in  Figure  1-22.  The  one- 
third  octave  band  sound  pressure  level  spectra,  OASPL,  PNL,  and  PNLT  are  com- 
puted for  each  source  of  the  aircraft  and  the  summation  for  the  total  aircraft 
at  a given  observer  location  along  the  sideline  and  at  an  aircraft  location 
along  the  flight  path.  Since  the  acoustic  data  base  for  these  aircraft  are 
very  limited,  the  static  test  data  with  the  theoretical  background  are  used  to 
identify  the  sources  and  their  characteristics.  The  effect  of  aircraft  motion 
is  considered  separately  in  formulating  the  noise-prediction  model.  In  many 
instances,  it  has  been  necessary  to  apply  engineering  judgement  in  estimating 
the  noise  levels.  A substantial  part  of  the  analyses  is  carried  out  by  Guy  Swift 
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3.1  RADIATED  SOUND  FROM  THE  AIRCRAFT 

The  noise  generated  by  the  various  sources  of  the  aircraft  are  considered  to 
have  originated  from  a single  point.  Thus,  the  distance  between  the  various 
sources  (e.g  , between  the  engines)  is  negligible  compared  with  the  distance 
between  the  observer  and  the  aircraft.  The  radiated  sound  is  assumed  to  vary 
according  to  the  spherical  divergence  law  (1/R2).  Atmospheric  attenuation  for 
the  sound  propagating  from  the  aircraft  to  observer  is  computed  using  the 
standard  procedure  given  in  reference  1-3&.  The  attenuation  of  each  one-third 
octave  band  SPL  for  a distance,  R,  is  given  at: 

AdBi  = (ltoO)  °i 

where  aj  is  the  atmospheric  absorption  coefficient  for  the  i t*1  third-octave 
band  frequency,  which  is  a function  of  ambient  temperature  and  relative 
humidity. 


r | 


In  this  prediction  program,  the  absorption  coefficients  for  a day  with  77°F 
and  70%  relative  humidity  given  in  Figure  1-23  are  used.  These  conditions  are 
required  by  the  FAA  for  aircraft  certification  as  specified  in  FAR  - Part 

36j“3*. 
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For  multiple-engine  aircraft,  the  increase  in  noise  is  estimated  with  the 
assumption  of  that  each  engine  produces  and  radiates  noise  independently. 
Therefore,  the  increase  in  noise  level  for  N identical  engines  is  given  by, 

AdB  = 10  1og10  (N) . 

However,  depending  on  the  engine  locations,  configuration  of  the  aircraft,  and 
location  of  the  observer  with  respect  to  the  aircraft  (elevation  angle  and 
azimuthal  angle),  the  noise  generated  by  some  of  the  sources  will  be  shielded 
by  the  aircraft  components  and  refracted  through  the  other  engine  flows.  Since 
this  type  of  attenuation  is  a complicated  phenomena  and  no  experimental  data 
are  available,  these  effects  are  estimated  as  a function  of  elevation  angle: 

AdB  = - 2 cos<{>  . 


3.2  EFFECT  OF  AIRCRAFT  MOTION 

The  characteristics  of  the  noise  sources  (generation  and  propagation)  are 
determined  based  on  the  static  (without  forward  speed)  experiments.  The  air- 
craft motion  or  the  freestream  flow  does  influence  the  noise  generation  and 
propagation  of  the  sources.  The  degree  of  influence  depends  on  the  noise 
production  mechanism  and  the  geometric  location  of  the  source.  Since  V/STOL 
aircraft  noise  levels  are  generally  critical  during  take-off  and  landing 
operations,  the  aircraft  speeds  considered  here  are  less  than  150  knots. 

Basically,  aerodynamic  noise  production  depends  on  the  fluctuating  quantities 
in  the  flow  such  as  turbulence,  temperature,  and  density..  Sound  propagation 
depends  on  the  inhomogeneities  in  the  path  such  as  flow  shear  and  the  presence 
of  the  rigid  surfaces.  The  turbulence  properties  of  the  flow  mixing  depends 
on  the  relative  velocity  of  the  flow  with  respect  to  the  ambient  air.  It  may 
be  reasonable  to  assume  that  the  noise-generating  mechanism  of  flow/surface 
interaction  is  not  influenced  by  the  aircraft  motion.  However,  the  flow 
spreading  and  thus  the  velocity  gradient  is  a function  of  relative  jet  veloc- 
ity. Therefore,  the  propagation  characteristics  of  the  aircraft  noise  sources 
can  also  change.  In  addition,  motion  of  the  source  with  respect  to  the  ob- 
server results  in  Doppler  frequency  shift  and  redirectivity.  As  the  data  base 
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for  assessing  aircraft  motion  on  the  aerodynamic  noise  is  limited;  it  is  not 
possible  to  assess  this  effect  on  the  directivity  and  spectral  distribution  of 
each  noise  component  with  any  degree  of  confidence.  Tests  are  being  conducted 
at  the  Lockheed-Georg ia  Comrany  using  a free- jet  anechoic  room  to  evaluate  the 
effect  of  aircraft  motion  on  jet  noise.  The  EBF  test  data  taken  in  the  ane- 
choic wind  tunnel  for  NASA  Lewis  Research  Center  during  last  year  (197*0  are 
still  being  analyzed  and  are  not  now  available  for  incorporation  in  this 
program.  However,  the  preliminary  results  of  EBF  tests  published  in  reference 
1-38  and  other  test  results  are  used  in  formulating  the  analytical  model  to 
predict  the  noise. 


3.2.1  Effect  of  Source  Motion  (Doppler  Frequency  Shift) 

When  a sound  source  is  in  motion  with  respect  to  an  observer,  the  observed 
frequency  is  different  from  the  frequency  emitted  by  the  source.  This  shift 
in  frequency,  known  as  Doppler  shift,  is  a function  of  the  source  Mach  number 
and  the  angle  between  the  source  direction  and  an  observer  (elevation  angle). 
Mangiarotty  and  Turner^-*^  have  derived  the  following  expression  for  the 
Doppler  frequency  shift  of  the  aircraft  ncise. 


D*f>  “ 77  " T 


Macos9a 


where  fQ  * observed  frequency 
fs  = source  frequency 

M a = Mach  number  of  the  source  (aircraft) 

0^  - angle  between  the  flight  path  and  observer 


The  Doppler  shift,  D(f),  is  shown  in  Figure  1-24  as  a function  of  0^  and 
source  Mach  number. 


For  angles  8^  close  to  90°,  and/or  for  small  aircraft  Mach  numbers,  the 
Doppler  frequency  shift  is  negligible  as  indicated  in  this  figure.  Since  the 
maximum  noise  of  V/STOL  aircraft  occurs  for  0^  = 90  i 45°,  the  change  in 
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frequency  due  to  Doppler  shift  is  negligible.  However,  this  expression  is 
computerized  to  account  for  any  change  in  the  observed  frequency. 

3.2.2  Effect  of  Aircraft  Motion  on  Acoustic  Energy 

Internally  Generated  Engine  Noise  - The  experimental  results  reported  by 
von  Glahn  and  Goody koontz^-^  indicate  that  the  internally  generated  noise  is 
not  affected  by  the  aircraft  motion.  Since  the  freestream  does  not  influence 
the  fluctuating  properties  of  the  flow  inside  the  engine,  it  is  reasonable  to 
assume  that  the  generation  mechanism  of  internally  generated  engine  noise  is 
independent  of  the  aircraft  velocity.  The  change  in  propagation  properties 
due  to  change  in  velocity  gradient  of  the  jet  flow  is  assumed  to  be  negligible. 

Jet  Noise  - Jet  noise  is  generated  from  the  turbulent  flow  developed  by  the 
mixing  of  jet  exhaust  with  the  ambient  air.  Using  the  similarity  relation,  it 
is  known  that  the  sound  intensity  varies  as  the  8^  power  of  the  jet  exhaust 
velocity.  It  has  been  customarily  assumed  that  the  turbulence  intensity  de- 
pends on  the  relative  velocity  of  the  jet  with  respect  to  freestream  (V j - VQ) , 
and  thus  the  sound  intensity  may  be  estimated  by  using  the  relative  velocity 
in  place  of  jet  velocity.  Thus,  the  radiated  sound  intensity  from  the  jet 
mixing  may  be  expressed  as: 

, [Vj  - VA/C]8  (24) 

t-a 

However,  the  test  results  indicate  that  the  reduction  in  jet  noise  due  to  the 
forward  speed  is  less  than  this  equation  indicates.  Therefore,  an  attempt  is 
made  to  deduce  the  effect  of  aircraft  motion  on  jet  noise  using  a global 
relation  between  the  radiated  sound  power  and  the  mechanical  power  of  subsonic 
jets.  Lighthi 1 l^-^  has  given  the  acoustic  efficiency  (relation  between  the 
acoustic  power  and  mechanical  power)  of  the  jet,  in  the  static  cases  as: 

Acoustic  Power  _ ^ ,^Jv 5 
n Mechanical  Power  ca 

Since  the  mechanical  power  of  the  jet  is  independent  of  forward  speed,  it 
is  assumed  that  the  acoustic  efficiency  of  the  jet  varies  as  [ (Vj  - Va)/ca] 5 , 
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and  therefore,  the  radiated  sound  power  of  the  jet  may  be  written  as: 


Sound  Power  ~ Pj^Vj3 


<Vva>5 


The  test  results  of  subsonic  jet  with  conical  nozzles^-^  1-42,  1-43  indicate 
that  the  radiated  sound  intensity  in  the  direction  90°  from  the  inlet  axis 
varies  as  relative  velocity  (Vj'^a/c)  raised  to  a power  between  5 and  6. 
Therefore,  in  the  prediction  program,  neglecting  the  effect  of  forward  speed 
on  directivity  and  spectral  distribution,  the  incremental  SPL  to  be  added  to 
the  static  results  is  given  as: 


AdB  = 50  log j q (1  - -p) 

VJ 


Even  though  these  results  are  derived  from  the  subsonic  jets  with  simple 
conical  nozzles,  the  same  equation  is  also  used  for  nozzles  of  the  other 
shapes.  These  results  are  illustrated  in  Figure  1-25. 


Lift-Augmentation  Noise  - The  noise-generation  mechanism  of  a propulsive  lift 
system  is  complex  and  consists  of  the  combination  of  fluctuating  stresses 
(quadrupole) , fluctuating  forces  (dipole),  and  fluctuating  masses  (monopole). 
It  is  not  possible  to  evaluate  accurately  the  effect  of  the  freestream  veloc- 
ity (aircraft  motion)  on  the  radiated  sound  from  each  source  of  the  high-lift 
system.  Therefore,  the  empirical  relation  will  be  derived  for  each  configu- 
ration using  the  limited  experimental  data  and  knowledge  of  the  physical 
phenomena  of  noise  generation  and  propagation. 

Several  investigators^”'^-'  1-45,  1-46  attempted  to  study  experimentally 

the  effect  of  forward  speed  on  the  radiated  noise  generated  by  the  high-lift 
systems.  The  following  generalized  empirical  relation  is  derived  from  the 
data  of  these  references  for  EBF,  USB,  and  AW:; 


AdB  = 10  logl0  [ 1 - 
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where  K is  a function  of  direction,  end  high-! 5ft  concept* 
with  azimuthal  angle,  4>  for  flyover  location  is  shown  in  Figure  1-26. 

!n  case  of  IBF/JF  and  VT,  the  equation  is  modified  to  account  for  the  deflect- 
ed angle  of  the  flow.  Thus,  the  relation  is  given  as: 

V./c  cos6f  K 

AdB  = 10  iog10  [(1  - -)]  (28) 

J 

where  6f  = flap  angle  in  the  case  of  IBF  and  nozzle  deflected  angle  in  the 
case  of  VT. 

The  values  of  K for  various  V/STOL  configurations  is  given  in  Table  I.  The 
effect  of  aircraft  motion  for  the  vectored  thrust  concept  is  shown  in  Figure 
1-27. 


3.3  GROUND  REFLECTION  PROCEDURE 

Acoustic  measurements  taken  in  the  vicinity  of  the  ground  (reflecting  surface) 
are  distorted  as  compared  with  free-field  measurements.  These  effects,  dis- 
cussed by  Thomas'^'7  and  Mi les^-^,  consist  of  a series  of  acoustic  cancel- 
lations and  reinforcements  in  the  measured  spectra,  whether  they  are  the  model 
tests  or  full-scale  flight  tests.  A generalized  method  of  correcting  measured 
spectra  for  ground  effects  is  currently  being  formulated  by  SAE-*-^.  These 
are  functions  of  the  acoustic  impedance  of  the  ground  (reflecting  surface), 
the  location  of  the  observer  with  respect  to  ground  and  source,  source  size, 
and  the  frequency  band  width. 


The  reflection  index,  N,  for  a point  noise  source  over  a perfectly  reflecting 
plane  analyzed  in  one-third  octave  bands  is  taken  from  reference  1-1*9  as  shown 
in  Figure  1-28.  These  values  are  computed  from  the  equation: 


Nj  = 10  log10  (1  + ^ 
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aOASPL  = 10  LOG  ( 
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WHITE  NOISE,  POINT  SOURCE,  PERFECTLY  REFLECTING  SURFACE 


-28.  Ground  Reflec 


where 
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Nj  = reflection  index  for  i th  one-thi rd-octave  band  source  pressure 
level , dB 

Z = rR/rD 

rg  = length  of  direct  sound  ray,  ft. 
rR  = length  of  reflected  sound  ray  ( rRl  + rR2) » ft- 
r = (rR  - rD) , ft. 

Aj  = ca/fj  * wave  length  of  the  one-third-octave  band  center 
frequency 

c.  = speed  of  sound 

a 

fj  = center  frequency  of  the  i ^ band 
aj  * (Af/2fj) 

0 =*  2tt  / 1 + (Af/2f  j ) 2 
Af  = frequency  band  width 
Af/fj  = 0.231  for  one-thi rd-octave  band  analysis 

Figure  1-29  indicates  the  first  few  cancellations  and  reinforcement 
cies  as  a function  of  the  difference  in  distance  between  the  direct 
reflected  wave  paths. 

For  a distributed  source  in  a finite  volume,  a similar  analysis  may 
ducted  by  assuming  a number  of  discrete  sources,  each  having  the  same  white- 
noise  characteristics. 

Comparisons  of  theory  with  experiment,  reported  in  references'^'7’  indi- 

cate that  Equation  (29)  yields  very  reasonable  correction  factors  for  jet  and 
EBF  noise.  Therefore,  in  this  program,  the  ground  reflections  are  computed 
using  equation  (29)  with  the  assumptions  of  a perfectly  reflected  surface  and 
white-noise  poii.*:  source.  For  the  other  reflecting  surfaces  (with  different 
acoustic  impedance)  the  formulation  has  to  be  modified. 
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FREQUENCY,  Hz 


3.fr  EXTRA  GROUND  ATTENUATION  (EGA 


The  presence  of  open  ground  terrain  influences  the  characteristics  of  sound 
close  to  the  ground  propagating  in  the  direction  parallel  to  the  ground 
surface.  These  effects  are  known  as  Extra  Ground  Attenuation  (EGA),  and  are 
largely  due  to  the  retraction  and  scatter  effect  of  the  inhomogeneities  near 
the  ground  and  the  residual  ground  attenuation.  The  inhomogeneities  are  the 
presence  of  wind,  temperature  gradients,  and  atmospheric  turbulence  on  the 
boundary  of  the  ground.  Reference  1 — 50  describes  a widely  accepted  industry 
standard  for  predicting  EGA  with  the  assumption  of  wind  velocity  of  10  miles 
per  hour  and  a thermal  gradient  of  an  average  day.  The  EGA  contributes  mainly 
for  sideline  noise  with  elevation  angles  of  less  than  about  kO  . The  attenua- 
tion is  assumed  to  be  independent  of  wind  direction,  and  azimuthal  angle, 
equal  to  that  for  downwind  propagating  with  a speed  of  10  mph.  EGA  is  com- 
puted in  the  computer  program  using  the  results  presented  in  Figure  1-30  taken 
from  reference  1-50  for  downwind  propagating  with  a speed  of  10  mph.  Effects 
of  EGA  is  considered  for  the  ai rcraf t-to-observer  distance  less  than  100  ft. 

The  ground  absorption  effect  sometimes  referred  as  "ground  dip"  has  been  ob- 
served in  the  frequency  range  of  300  to  600  Hz.  The  magnitude  of  this  effect 
depends  upon  the  acoustical  impedance  of  the  ground,  which  could  be  about  5 dB 
for  distances  above  1,000  feet  for  soft  grounds.  This  effect  is  negligible  if 
the  ground  is  a perfectly  reflecting  and,  therefore,  not  included  in  EGA 
computation. 

3.5  SHIELDING  OF  SOUND  BY  AIRCRAFT  COMPONENTS 


Rigid  surfaces  can  be  effective  sound  barriers  for  sound  sources  close  to  the 
surface.  Since  the  aerodynamic  noise  sources  of  an  aircraft  are  located  close 
co  che  aircraft,  the  aircraft  components  can  provide  effective  shielding  in 
certain  directions,  although  the  actual  effectiveness  of  such  shielding  de- 
pends on  the  location  of  the  sources  relative  to  the  structural  components. 

The  noise  sources  of  a high-lift  system  that  are  most  effectively  influenced 
by  the  shielding  phenomena  of  the  aircraft  structural  components  are:  (l) 

aft-radiated  engine,  (2)  jet  mixing,  (3)  impingement,  and  {k)  wall-jet  mixing 
noise.  In  general,  the  forward-radiated  engine  noise  is  not  shielded.  For 
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the  case  of  multi-engine  aircraft,  some  noise  could  be  shielded  by  the  fuse- 
lage and  the  nacelles. 

Feher  and  Wiener  have  adapted  optical-diffraction  theory  to  estimate 
the  shielding  effect  of  structural  components  on  sound  radiation.  Based  on 
these  methods,  Swift  and  Ti bbetts^"^  formulated  the  shielding  of  aft-radiated 
engine  and  jet  mixing  noise  by  the  wing/flap  in  the  fly-over  plane. 

In  the  case  of  the  USB  concept,  the  aft-radiated  engine  and  jet  mixing  noise 
sources  are  located  on  the  wing/flap  surface.  The  reduction  in  noise  levels 
due  to  shielding  for  these  sources  in  the  fly-over  plane  is  given  by: 

AdB  = 10  log 10  (Mp)  + 10 

where  Np  = 2 [ (a  + b)  -S]/X,  Fresnel  number;  a,  b,  and  s are  defined  in 
Figure  1-31 

X = sound  wave  length. 

The  description  of  directivity  and  spectral  distribution  for  the  flow-surface 
interaction  noise  (for  example,  impingement  and  wall  jet  noise)  of  propulsive- 
lift  systems  include  the  presence  of  rigid  surfaces.  Therefore,  the  shielding 
is  not  included  separately  for  these  sources. 

3.6  NOISE  REDUCTION  FEATURES 

To  evaluate  the  noise  reduction  possibilities,  it  is  necessary  to  identify  the 
relative  importance  of  the  noise  sources  and  their  generation  and  propagation 
mechanisms.  In  the  case  of  V/STOL  aircraft,  it  is  very  well  established  that 
the  high-lift  noise  dominates  over  the  other  sources.  Several  exploratory 
studies  are  being  conducted  at  Lockheed  and  several  other  organizations  to 
understand  the  noise  characteristics  and  to  develop  any  feasible  noise- 
suppression  techniques.  The  present  state  of  the  art  is  not  advanced  enough 
to  develop  a method  to  incorporate  a generalized  noise  reduction  method  of 
V/STOL  aircraft..  However,  the  possible  noise  control  features  for  each  of  the 
sources  and  the  inclusion  of  these  techniques  in  the  noise-prediction  program 
of  each  configuration  are  discussed. 
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The  best  method  of  reducing  jet  noise  and  the  h i gh- lift  system  noise  is  to 
reduce  the  jet  velocity.  However,  the  reduction  of  jet  velocity  requires  that 
the  nozzle  exit  area  be  increased  to  have  the  same  mass  flow  and  thrust,  thus 
calling  for  larger  and  heavier  powerplants.  For  cost  effectiveness,  therefore, 
noise-control  techniques  must  be  adopted  to  the  lift-augmentation  system  with 
a minimum  performance  loss. 


.6.1  Internally  Generated  Enqine  Noise 


Other  than  the  design  of  the  basic  fan,  compressor,  and  turbine,  one  of  the 
common  methods  of  suppressing  this  type  of  noise  is  by  treating  the  inlet  and 
exhaust  system  with  sound-absorbing  materials.  Some  of  the  novel  liner  treat- 
ment designs  for  this  purpose  are  described  by  Wirt-*-^.  The  detailed  study 
of  suppression  of  the  engine  internal  noise  is  beyond  the  scope  of  this  pro- 
gram. Therefore,  the  effect  of  suppression  is  added  as  a reduction  in  SPL 
(AdB)  for  the  unsuppressed  noise  sources  (fan/compressor,  turbine,  and  core 
engine) . 

3.6.2  Jet  Mixing  Noise 


At  present,  jet  noise  reduction  is  achieved  by  reducing  the  jet  velocity  (with 
an  increase  in  exhaust  area)  and  the  use  of  bypass  engines  and  the  multi-lobed 
or  multi-tubed  nozzle.  In  the  case  of  bypass  engines,  the  noise  could  be 
minimized  by  having  the  velocities  of  the  two  streams  as  close  as  possible. 

The  use  of  multi-elements  for  the  nozzle  exhaust  (tubes  or  lobes)  is  effective 
in  reducing  the  noise  at  high  jet  velocities.  However,  at  the  low  subsonic 
velocities  which  are  typical  in  V/STOL  takeoff  and  landing  operations,  the 
test  results  indicate  that  jet  noise  actually  increases.  Although  the  reasons 
are  still  not  well  known,  the  tentative  explanation  is  that  the  noise  gener- 
ated by  the  interference  of  turbulence  with  the  nozzle  lip  and  the  so-called 
"tail-pipe  noise"  increases  at  low  velocities.  The  use  of  different  nozzle 
shapes  is  directly  incorporated  in  the  jet-noise  prediction  program. 


3-6  3 ft-Aug^  ita  t ■ or>  Noi  se 
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trailing  edge  (trailing  edge  treatment),  (2)  having  a secondary  flow  at  the 
trailing  edge  (trailing  edge  blowing,  (3)  use  of  different  numbers  of  slots 
in  the  flap,  (k)  use  of  different  nozzle  shapes,  and  (5)  ejector  treatment  in 
the  case  of  the  augmentor  wing. 

Externally  Blown  Flap  and  Upper  Surface  Blown  Flap  - Trailing-Edge  Treatment 
and  Trailing-Edge  Blowing  - Hyden  et  have  found  from  their  preliminary 

experimental  investigations  that  the  use  of  porous  material  in  the  place  of  a 
tra i 1 i ng-edge  section  and  modification  of  flow  field  by  introducing  a secon- 
dary flow  at  the  trailing  edge  offer  potential  for  reducing  the  radiated  EBF 
and  USB  noise.  However,  they  have  neither  evaluated  the  performance  charac- 
teristics nor  optimized  the  modifications  of  the  trailing  edge.  Pennock 
et  al  conducted  static  tests  using  a large-scale  model  of  EBF  and  found 
that  a moderate  amount  of  noise  reduction  could  be  achieved  either  by  replac- 
ing part  of  the  last  flap  with  a perforated  plate  or  a compliant  material,  or 
by  using  secondary  blowing  at  the  trailing  edge.  Using  these  results,  empiri- 
cal relationships  are  established  for  optimum  noise  reduction  in  terms  of  PNL 

PNL  = -1  (0.5  + sin*)  for  EBF 

PNL  * -2  (0.5  + sin*)  for  USB 

and  it  is  assumed  to  be  independent  of  azimuthal  angle,  0. 

Noise  reduction  obtained  with  the  secondary  blowing  at  the  trailing  eoge  is  a 
function  of  the  height  of  the  slot  and  the  velocity  of  the  secondary  flow,  as 
illustrated  in  Figure  1 - 32 . However,  at  very  high  secondary  flow  velocity 
(>A00  fps)  the  noise  generated  by  the  secondary  flow  itself  becomes  dominant. 
Empirical  relationships  for  the  maximum  (optimum)  noise  reduction  are  derived 
using  the  experimental  data  from  references  1-35  and  1-56. 

PNL  = -2h  sin*  for  EBF 

PNL  = -4h  s i n*  for  USB 

where  h is  slot  thickness  in  inches. 
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Effect  of  Number  of  Flap  Segments  - In  the  case  of  the  EBF,  it  is  found  that 
an  increase  in  flap  segments  increases  the  radiated  noise  levels.  From  the 
experimental  results  of  reference  1 —38 * the  following  expression  is  derived 
for  the  change  in  noise  levels  as  a function  of  jet  velocity  and  the  number  of 
flap  segments: 

PNL  = - ^—-(3  - S)  • S i n4> 

where  Vj  = jet  velocity  in  ft/sec. 

S = number  of  slots. 

Use  of  Multi-element  Nozzle  - Replacing  a single  element  (circular  or  rectangu- 
lar) nozzle  with  a mul ti -element  nozzle  reduces  the  impingement  velocity  in  the 
case  of  EBF,  and  thus  the  flow-surface  interaction  noise  may  be  reduced. 
However,  at  low  velocities,  it  is  experimentally  found  that  the  EBF  noise  can- 
not be  reduced  by  this  technique.  Replacement  of  a circular  nozzle  by  a multi- 
element nozzle  and  an  acoustically  treated  ejector  is  found  to  be  an  effective 
way  to  reduce  the  noise  without  any  performance  penalty,  as  indicated  in 
references  1-57>  1-58,  and  1-59.  Using  these  data,  a maximum  noise  reduction 
of  about  6 PNdB  in  the  flyover  plane  and  3 PNdB  in  the  sideline  plane  may  be 
obtained. 

Augmentor  Wing  - A basic  design  of  Augmentor  Wing  with  a slot  nozzle  and  hard- 
wall  ejector  is  excessively  noisy.  Extensive  experimental  noise  control 
studies  of  AW  have  been  reported  in  references  1-10  and  1-11,  and  the  impor- 
tant features  of  noise  reductions  are  summarized  in  Figure  1-33.  High  noise 
reductions  are  obtained  by:  (1)  replacing  the  slot  nozzle  by  multi-element 

nozzles  and  (2)  acoustically  lining  the  internal  walls  of  the  ejector.  Since 
the  actual  noise  reductions  are  sensitive  to  decail  design,  it  is  not  possible 
to  generalize  concerning  the  actual  results  which  may  be  expected. 

Internally  Blown  Flap  and  Vectored  Thrust  Configurations  _ n0  general  trends 
or  novel  methods  are  used  to  reduce  the  noise  generated  by  these  configura- 
tion and  flow  parameters  which  are  included  in  the  basic  noise  prediction 
mode  1 . 
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PART  II 


DESCRIPTION  AND  USE  OF  COMPUTER  PROGRAM 


D.  F.  Blakney 
J.  G.  Tibbetts 
N.  N.  Reddy 


This  is  a two-part  report.  The  ^irst  part  consists  o& 
Section  1 - 3 describing  the  anaiys es  and  analytical 
model  ioK  prediction  oft  V/STOL  noise.  The  second  part 
consists  ofi  Sections  4-6  describing  the  development 
and  use  o&  the  V/STOL  noise  prediction  program. 
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4.  NOISE  PREDICTION  PROGRAM  DESCRIPTION 


The  following  subsections  will  describe  the  computer  program  developed  to  pre- 
dict the  noise  generated  by  V/STOL  aircraft.  They  present  detailed  flow 
charts  of  each  program,  along  with  the  descriptions  which  include  the  required 
input  and  the  applicable  limitations. 

4.1  GENERAL  DESCRIPTION 

This  program  predicts  the  noise  generated  on  takeoff  or  approach  by  six 
powered-lift  systems: 

(1)  Vectored  Thrust  (VT) 

(2)  Externally  Blown  Flap  (EBF) 

(3)  Upper  Surface  Blowing  (USB) 

(4)  Internally  Blown  Flap  (IBF/BLC  and  IBF/JF) 

(5)  Augmentor  Wing  (AW) 

(6)  Hybrid  System  (Hybrid) 

The  program  consists  of  a main  control  program  and  22  subroutines.  The  noise 
from  each  source  defined  for  V/STOL  aircraft  is  predicted  by  a separate  sub- 
routine. The  following  subroutines  have  been  developed  to  predict  the 
radiated  noise  from  12  different  sources: 

(1)  AERO  - predicts  airframe  aerodynamic  noise 

(2)  FAN  - predicts  single  stage  fan  noise 

(3)  TURBNE  - predicts  engine  turbine  noise 

(4)  JET  - predicts  jet  mixing  noise 

(5)  EXCESS  - predicts  the  excess  engine  noise  (core) 

(6)  AUGWNG  - predicts  noise  of  complete  augmentor  wing  high  lift  system 

(7)  WNGJET  - predicts  jet  mixing  noise  from  wing  slot  nozzle 

(8)  IMPING  - predicts  noise  from  impingement  of  jet  flow  on  wing  flap 

surface 

(9)  WALJET  - predicts  noise  from  jet  flow  over  surface  of  wing/flaps 

(10)  WAKE  - predicts  noise  from  trai 1 i ng-edge  wake 

(11)  TRAIL  - predicts  trai 1 i ng-edge  noise 

(12)  APU  - predicts  noise  from  Auxiliary  Power  Unit  (PNL  only) 
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In  addition,  10  other  subroutines  calculate  the  propagation  effects  or  noise 
reduction,  or  they  perform  functions  necessary  to  the  prediction  procedures: 


! 


I 

I 


(1) 

EGA  - 

(2) 

GRE  - 

(3) 

SHIELD 

(4) 

FWDSPD 

(5) 

DOPLER 

(6) 

REDUCE 

(7) 

PNLREV 

(8) 

TONE  - 

(9) 

GIRC  - 

(10) 

DTAB2 

forward  motion 

shifts  spectrum  to  account  for  Doppler  fr 
to  motion  of  the  source 
determines  total  effect  (APNdB)  of  noise 
features  discussed  in  following  sections 
calculates  perceived  noise  level  (PNL)  ft 
band  spectrum 

alculates  tone  corrections  to  PNL  from  a 1 
spectrum 

able  interpolation  routine  for  single  ind( 
tables 

table  interpolation  routine  for  tables  wil 
variables. 


The  main  program  (ST0LPR0G)  and  the  22  subroutines  listed  above  form  a unique 
prediction  tool  for  use  on  V/STOL  aircraft.  The  module  concept  used,  with 
each  source  and  effect  accounted  for  in  a separate  subroutine,  allows  for  the 
future  updating  of  technology  for  individual  elements  without  a major  rewrite 
of  the  entire  prediction  program. 


The  logic  diagram  shown  in  Figure  2-1  gives  a macroscopic  viev,  of  the  program 
operation. 

4.1.1  Program  Options 

As  shown  in  Figure  2-1,  the  program  has  three  main  options: 

(1)  Predict  noise  for  a fixed  aircraft  position  and  a fixed  observer 
posi tion. 
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Input  geometric  vorioblei  of  a'rcraft 

1)  Engine  exhaust  nozzle 

2)  Wing  and  flop 

3)  Optional  data  for  various  V/STOL 
configurations 

Input  the  required  operational  va.'tobles 

1)  Jet  velocity  and  area  (thrust) 

2)  Aircraft  location  with  respect  to  observer 

o sideline  distant' 
o altitude 
o azimuth  angle 

1 

Calculate  other  variables  for  aircraft  location 
o source  to  observer  distance 
o elevation  angle 


Calculate  1/3  octave  band  spectra  for 
each  noise  component  accounting  for: 
o spherical  divergence 
o atmospheric  attenuation 
o forward  speed  (level  and 
frequency  shift) 
o ground  reflection 
o extra  ground  attenuation 
o noise  reduction  features 


Calculate  total  system  noise 

1 ) Add  component  spectro  to  give  total 
1/3  octove  band  sound  pressure  levels 

2)  Calculate  OASPL,  PNL,  and  PNLT 
for  each  spectra 


Calculate  moximLm  PNL^  from  the  APU 


Add  PNLa  to  PNL  and  PNLT  to  obtain  total 
PNL  and  PNLT  for  the  aircraft 


o oircraft  position  data 
o oircraft  velocity 
o component  and  total  spectra 
o OASPL,  PNL,  and  PNLT  for  each  spectra 


..  ’V  A 


•ncremenf  azimuth  ongle  by  10  for  10 
Return  ro  step  (3)  until  170  obtained 

o aircraft  pos.tionol  data 
o aircraft  velocity 
o array  of  oz.muth  angle  source  to 
observe  distance,  PNL,  and  PNLT 


Increment  azimuth  angle  as  >n  Option  ? 
with  oltitude  being  incremented  as  specified; 
for  each  azimuth  sweep  at  a given  oltitude, 
select  the  maximum  PNLT 

o side^ne  distance 
O aircraft  veloci/y 

o array  of  a r»,de.  distance  along  flight  poth, 
elevation  angle,  azimuth  angle  of  rsox  PNL, 
source  to  observer  distance,  max  PNL,  max  PNLT 
o maximum  PNt  end  PNLT  f'om  array  of  max  PNL’s 
ond  PNU  » and  fh**  values  of  positional  variables 
for  this  max i muni  point 


n 


Figure  2-1  . Logic  Diagram  for  V/STOL  Noise  Prediction 
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(2)  Predict  noise  for  a fixed  aircraft  position  and  17  observer  loca- 
tions along  the  sideline  with  an  azimuth  angle  range  from  10°  to  170°. 

(3)  Predict  maximum  noise  during  flight  profile  segment. 

The  output  for  each  option  is  also  described  in  Figure  2-1  and  exemplified  in 
the  sample  cases  presented  in  Appendix  A. 

The  aircraft  operational  parameters  (such  as  nozzle  velocity  and  flap  angle) 
must  remain  constant  during  the  flight  profile  described  for  option  3-  For 
segn anted  takeoffs  or  approaches,  each  segment  must  be  a separate  program 
execution. 

^.1.2  Input  Parameters 

The  required  input  parameters  for  the  program  are  presented  below.  Each  line 
of  variables  represents  one  card  image.  Some  parameters  are  read  only  when 
certain  program  options  are  used.  These  optional  inputs  are  also  shown  with 
the  options  which  require  them. 

iTITLE | 

| NOPTS  j NOPTG | NENG | 

| SLD I ST | ALT | AZMANG | VAC | FLTANG | 

If  NOPTG  = 3 | NALT | ALT INC | STD  I ST | 

|NK(1) |NK(2) |NK(3)|NK(4)|NK(5) |NK(6) I NK(7) ! NK(8) I NK(9) I NK( 1 0) I MK( 1 1 ) I NK( 1 2) | 

| ALPHA1 | X 1 | Y 1 | 

| FLAP1 | FLAP2 1 FLAP3 1 FLPAG1 | FLPAG2  j FLPAG3 1 

If  NK(4)  = 1 

| NOPTJ | 

If  NOPTJ  = 1 or  3 | DPLUG i DPR  I H j VJPR I M | TTPR I H j ANGNOZ | 

If  NOPTJ  = 3 |DANIN|DAN0UT| VJSECjTTSEC | 

If  NOPTJ  = 2 | HNOZ | WNOZ | VJPRIM| TTPRIM j ANGNOZ | 
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If  NK( 6)  = 1 

| HWNOZ | WWNOZ | VJWNOZ | E JL | E JANG | 

If  W(7)  = 1 

| HWNOZ | WWNOZ | VJWNOZ | ANGWNZ | TTWNOZ | 

If  NK(1)  = 1 

j SA] AR | TH 1 CKj 

If  NK(2)  = 1 

| WFF | PRF | DF | TF | TREATF | TREATA | 

If  M(Z)  = 1 

| P RT | VT 1 PT | DTURB | BLADES | TRPM | PCTP | TREATT | 

If  W(12)  = 1 

| NOPTA | XX | 

| NRED j 

If  NRED  = 1 

If  NR3  = 1 

| NR1 |NR2|NR3| 
| HSLOT j 

The  variable  TITLE  is  an  alphanumeric  list  that  is  input  with  a 10A6  format. 
NOPTS,  NOPTG,  NENG,  NALT,  NK(l)  NOPTJ,  NOPTA,  NRED,  NR1 , NR2,  and  NR3  are  all 
integers  and  are  input  with  15  formats.  The  remaining  variables  are  single- 
precision real  numbers  and  are  input  with  F10.1  formats. 

The  input  variables,  their  units,  and  definitions  are  as  described  below. 

TITLE  Alphanumeric  heading  of  not  more  than  60  characters;  generally 

used  to  identify  the  V/STOL  configuration  for  which  the  predic- 
tions are  made. 

NOPTS  Option  that  denotes  which  aircraft  configuration  is  to  be 

analyzed  as  follows  (Figure  2-2). 

1 = VT 

2 = EBF 

3 = USB 

k - IBF,  either  Boundary  Layer  Control  (BLC) 

or  Jet  Flap  (JF) 

5 = AW 

6 * Hybrid,  combination  of  USB  and  IBF/BLC. 
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WING  REF.  PLANE 


ENTER  VALUES  OF  0.0  FOR: 

ALPHA1,  XI,  Yl,  FLAP1 , FLAP2,  FLAP3, 
FLPAG1 , FLPAG2,  FLPAG3 


x ANG  NOZ  (+) 


(a)  VECTORED  THRUST  (NOPTS  = 1) 


ANGNOZ  = ALPHA1 

(b)  EXTERNALLY  BLOWN  FLAP  (NOPTS  = 2) 


WING  REF.  PLANE 


ALpHA  )(+) 


ENTER  0.0  FOR: 

FLAP2,  FLAP3,  FLPAG2,  FLPAG3 


(c)  UPPER  SURFACE  BLOWN  FLAP  (NOPTS  = 3) 
Figure  2-2.  High  Lift  System  Configurations 


XI,  FLAP2,  FLAP3,  FLPAG2,  FLPAG3 


ANGNOZ  = ALPHA1 

(d)  INTERNALLY  BLOWN  FLAP/BOUNDARY  LAYER  CONTROL  (NOPT5  = 4) 


^e)  INTERNALLY  BLOWN  FLAP/JET  FLAP  (NOPTS  = 4) 


Figure  2-2.  (Continued) 


ANGNOZ  = -ALPHA1 
(f)  AUGMENTOR  WING  (NOPTS  = 5) 


Figure  2-2.  (Concluded) 


NOPTG  Key  to  select  the  desired  program  option  discussed  in  Section 

4.1.1. 

1 * calculate  noise  for  single  aircraft  location  and  single 

observer  location 

2 = calculate  noise  for  single  aircraft  location  and  17 

observer  locations  along  sideline  with  azimuth  angle 
varying  from  10°  to  170°. 

3 ■ calculate  values  In  option  2 for  several  aircraft  loca- 

tions, and  select  the  maximum  noise  during  flight  profile. 


NENG 


Number  of  engines  desired  on  the  aircraft. 


SLDIST*  Perpendicular  distance  from  projection  of  aircraft  centerline  on 
horizontal  plane  to  the  desired  observer  sideline  as  shown  in 
Figure  2-3  (feet) . 


ALT*  Aircraft  altitude  for  single  locations;  the  starting  altitude  when 

NOPTG  - 3,  (feet),  not  less  than  4 feet. 

AZMANG*  Azimuthal  angle  from  forward  aircraft  centerline  to  the  line  from 
tiie  aircrafv.  to  the  observer;  value  is  initialized  internally  to 
10  if  NOPTG  ■ 1 (degrees). 

VAC  Velocity  of  aircraft  along  flight  path  (knots). 

FLTANG  Angle  between  aircraft  flight  path  and  horizontal  plane,  see 
Figure  2-3,  (degrees). 

NALT  Number  of  points  on  profile  to  be  used  with  NOPTG  = 3- 


ALTINC  Increment  to  be  applied  to  altitude  between  points  on  Flight 

profile  for  NOPTG  = 3,  positive  (+)  for  takeoff,  negative  (-) 
- for  approach,  (feet). 


"The  value  of  STOD  computed  from  SLDIST,  ALT , and  AZMANG  must  be 
greater  than  10  ft. 
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AIRCRAFT 


Figure  2-3.  Flight  Path  Geometry 


4 FT.  OBSERVER  HEIGHT 


STD  I ST 
NK(1) 

ALPriAl 

XI 

Y1 

FLAP1 

FLAP2 

FLAP3 

FLPAG1 

FLPAG2 

FLPAG3 

NOPTJ 


Distance  to  desired  reference  point  from  start  of  flight  profile 
segment  for  NOPTG  = 3»  see  Figure  2-3  (feet). 

Keys  to  select  the  noise  source  subroutines  to  be  called;  the  value 
of  index  I corresponds  to  the  subroutine  number  listed  in  Section 
4.1  (e.g.  NK(1)  is  for  AERO,  NK(2)  is  for  FAN,  etc.). 

0 = subroutine  not  called. 

1 * subroutine  cal  led. 

Angle  between  the  jet  exhaust  centerline  and  the  wing  centerline 
positive  in  the  direction  of  the  wing,  see  Figure  2-2  (degrees). 

Distance  from  projection  of  the  center  of  the  nozzle  exit  on  the 
wing  to  the  wing  trailing  edge,  see  Figure  2-2  (feet). 

Vertical  distance  from  wing  surface  to  the  center  of  the  nozzle 
exi t (feet) . 

Length  of  first  flap  (feet). 

Length  of  second  flop,  0.0  if  only  1 flap  (feet). 

Length  of  third  flap,  0.0  if  only  1 or  2 flaps  (feet). 

Angle  between  the  centerline  of  first  flap  and  the  wing  reference 
plane  (degrees). 

Angle  between  the  centerline  of  second  flap  and  the  wing  reference 
plane;  enter  0.0  if  only  1 flap  is  present  (degrees). 

Angle  between  the  centerline  of  third  flap  and  the  wing  reference 
plane;  0.0  if  only  1 or  2 flaps  are  present  (degrees). 

Key  to  denote  type  of  engine  nozzles  used,  see  Figure  2-4. 

1 = circular  nozzle,  with  or  without  plug 

2 = slot  nozzle 

3 - coaxial  nozzle,  with  or  without  primary  plug. 
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NOPTJ  = 1 CIRCULAR  NOZZLE  WITH  OR  WITHOUT  PRIMARY  PLUG 


WNOZ 


HNOZ 


NOPTJ  = 2 SLOT  NOZZLE 


NOPTJ  = 3 COAXIAL  NOZZLE  WITH  OR  WITHOUT  PRIMARY  PLUG 


Figure  2-4.  Nozzle  Configurations 


DPLUG  Diameter  of  nozzle  plug;  enter  0.0  if  no  plug  is  present  (feet), 

DPR  I H Outer  diameter  of  primary  nozzle;  diameter  of  mixed  flow  nozzle  if 

NOPTG  - 1 (feet). 

VJPRIM  Velocity  of  exhaust  from  primary  nozzle;  velocity  from  mixed  flow 
nozzle  if  NOPTG  * 1 (ft/sec.). 

TTPRIM  Total  temperature  of  primary  flow;  total  temperature  of  mixed 
flow  if  NOPTJ  - 1 (°R) . 

ANGNOZ  Angle  of  nozzle  centerline  relative  to  wing  reference  plane 

[horizontal  line  through  center  of  nozzle  exit;  positive  (+)  in 
downward  direction,  see  Figure  2-4  (degrees).] 

DANIN  Inner  diameter  of  secondary  annulus  (feet). 

DANOUT  Outer  diameter  of  secondary  annulus  (feet). 

VJSEC  Velocity  of  secondary  flow  (ft/sec.). 

TTSEC  Total  temperature  of  secondary  flow  (°R) . 

HNOZ  Height  of  engine  slot  nozzle  (feet). 

WNOZ  Width  of  engine  slot  nozzle  (feet). 

HWNOZ  Height  of  wing  slot  nozzle  (feet). 

WWNOZ  Width  of  wing  slot  nozzle  (feet). 

VJWNOZ  Velocity  of  flow  from  wing  slot  nozzle  (ft/sec.). 

EJt  Length  of  ejector  AW  configuration  (feet). 

EJANG  Angle  of  ejector  relative  to  wing  reference  plane  (degrees). 
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Angle  of  centerline  of  wing  slot  nozzle  relative  to  wing  reference 
plane  [horizontal  line  center  of  wing  slot  nozzle  (degrees)] 


ITWNOZ 


Total  temperature  of  wing  slot  nozzle  flow  (°R) . 


Surface  area  of  wings  (Ft2) 


Aspect  ratio  of  wing. 


THICK  Maximum  thickness  of  wing  (feet) 


Weight  flow  through  fan  (Ib/sec) 


Pressure  ratio  of  fan. 


DF  Diameter  of  fan  (feet). 

TF  Temperature  of  fan  exhaust  flow  (°R) 

TREATF  Attenuation  of  fan  noise  due  to  treatment  in  the  fan  inlet, 

input  as  positive  (APNdB) . 

TREATA  Attenuation  of  fan  noise  due  to  treatment  in  the  exhaust  duct, 
input  as  positive;  set  value  very  high  when  using  AW-2S 
configuration  (APNdB). 

PRT  Overall  pressure  ratio  of  the  turbine. 

VTIPT  Maximum  tip  speed  (ft/sec). 


DTURB 


Maximum  diameter  of  the  turbine  (feet) 


BLADES  Maximum  number  of  blades. 


Turbine  shaft  RPM  (revolutions/minute) 


PCTP 


Percent  thrust. 


TREATT  Attenuation  of  turbine  noise  due  to  turbine  treatment  (APNdB) . 

NOPTA  Key  to  denote  the  parameter  to  be  used  in  calculation  of  APU 

noi se. 

1 » use  bleed  capacity  (BC). 

2 ■ use  output  shaft  horsepower  (SHP) . 

XX  Value  of  BC  in  lb/sec  for  NOPTA  * 1. 

Value  of  SHP  in  horsepower  for  NOPTA  * 2. 

NRED  Key  to  denote  the  use  of  noise  reduction  features  on  the  V/STOL 

configurations. 

0 ■ not  used. 

1 « used. 

NR1  Key  to  denote  use  of  first  noise  reduction  feature, 

0 ■ not  used. 

1 ■ used. 

o less  than  3 fl^ps  on  EBF. 

o multi-lobe  nozzle  with  hard  wall  ejector  on  AW. 

NR2  Key  to  denote  use  of  second  noise  reduction  feature. 

0 = not  used. 

1 = used. 

o treatment  on  last  flap  trailing  edge  of  EBF  or  USB, 
o multi-lobe  nozzle  with  lined  ejector  on  AW. 
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Key  to  denote  use  of  third  noise  reduction  feature. 

0 * not  used. 

1 « used. 

o blowing  at  last  flap  trailing  edge  on  EBF  or  USB 
Height  of  slot  used  for  trai 1 ing-edge  blowing  (feet). 

Suaaested  Subroutine  Combinations 


The  program  is  designed  to  use  particular  noise  sources  for  each  type  of  V/STOL 
configuration.  However,  to  allow  for  possible  future  program  changes  or 
developments,  the  selection  of  subroutines  to  be  called  is  left  as  an  optional 
input  parameter.  Figure  2-5  shows  the  subroutines  that  should  be  used  with  each 
configuration.  Other  combinations,  which  are  not  described  in  this  report, 
might  be  "tailor-made"  to  fit  future  high-lift  systems  which  may  be  evolved. 


The  AW-2S  is  a two-stream  configuration  where  all  the  fan  air  is  used  to  power 
the  wing  slot.  The  AW-3S  has  some  fan  air  exiting  through  the  fan  nozzle. 


Figure  2-5.  Recommended  Subroutine  Combinations 


4.2  STOLPROG  - MAIN  PROGRAM 


STOLPROG  Is  the  main  control  program  for  the  prediction  method  outlined 
previously.  This  program  handles  all  the  necessary  Input  and  output  functions 
to  predict  the  noise  levels  for  a selected  configuration.  It  also  issues  all 
call  commands  to  the  desired  noise-source  prediction  subroutines. 

The  program  receives  partially  corrected  1/3  octave-band  spectra  (SPL)  from 
the  source  prediction  subroutines,  as  described  in  Section  4.3.  Through  cal- 
culations and  subroutine  calls,  STOLPROG  determines  values  to  account  Tor  the 
following  effects: 

o number  of  engines  on  the  aircraft 
o ground  reflection 
o fuselage  shielding 
o extra  ground  attenuation 
o level  change  due  to  forward  speed 
o noise  reduction  features. 

The  effect  of  number  of  engines  is  computed  as  10  • Logi0(N),  where  N is  the 
number  of  engines.  This  single  value  is  applied  throughout  the  entire  spec- 
trum. The  value  of  fuselage  shielding  for  the  multiple  engines  is  determined 
by  2 • cos  (ELVANG),  where  ELVANG  is  the  aircraft  elevation  angie.  The  other 
effects  are  calculated  in  the  individual  subroutines  discussed  in  the  follow- 
ing sections. 

The  values  of  the  above  corrections  are  applied  to  the  individual  source 
spectra  as, 

o number  of  engines  and  fuselage  shielding  — all  spertra  except 
AERO 

o level  correction  for  forward  speed  — JET,  AUGWN6,  WNGJET, 

IMPING,  WALJET,  WAKE,  and  TRAIL 

o noise  reduction  features  — AUGWNG , WNGJET,  IMPING,  WALJET,  WAKE, 
and  TRAIL. 
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The  spectra  from  FAN  and  TURBINE  are  combined  to  form  the  spectra  output  under 
the  heading  Fan  and  Turbine  when  NOPTG  = 1 (see  Appendix  A,  Sample  Output). 

The  spectra  from  AUGWNG,  WNGJET,  IMPING,  WALJET,  WAKE,  and  TRAIL  are  combined 
to  form  the  spectrum  output  under  the  heading  High  Lift  System  when  NOPTG  * 1. 

STOLPROG  also  calculates  a total  spectrum  for  all  the  noise  source  spectra  and 
determines  the  overall  sound  pressure  level  (OASPL) , perceived  noise  noise 
level  (PNL),  and  tone-corrected  PNL  (PNLT)  for  each  spectrum. 

Data  are  stored,  parameters  are  incremented,  and  the  above  process  is  repeated 
as  required  to  obtain  the  necessary  data  for  the  output  option  selected 
(NOPTG) . 
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STOLPROG 


Figure  2-6.  STOLPROG  Flow  Chart. 
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4.3  SOURCE  PREDICTION  PROGRAMS 


The  individual  noise  source  prediction  subroutines,  with  the  exception  of  APU, 
compute  an  index  value  of  OASPL  at  one  foot  from  the  source  in  a reference 
direction  (elevation  and  azimuth).  Although  this  index  OASPL  is  calculated  at 
one  foot  from  the  source,  it  is  equivalent  to  far-field  radiated  noise.  From 
this  index  value,  the  1/3  octave-band  spectrum  of  sound  pressure  level  (SPL) 
at  a given  distance,  azimuth,  and  elevation  angle  from  the  source  is  calcu- 
lated considering  the  following  effects: 

(1)  directivity  (azimuthal  and  elevation) 

(2)  spectral  distribution  (conversion  to  1/3  o.b.  SPL's) 

(3)  spherical  divergence 

(A)  atmospheric  attenuation  (using  values  for  a FAA  day,  77°F,  70$  R.H.) 
(5)  Doppler  frequency  shift. 

These  1/3  octave-band  spectra  are  then  returned  to  the  main  program  where  they 
are  modified  to  account  for  other  effects,  as  described  in  Section  4.2,  to 
give  the  actual  spectrum  received  by  the  observer. 

The  subroutine  APU  calculates  only  PNL  corrected  for  spherical  divergence. 

The  following  subsections  describe  and  present  detailed  flow  charts  for  the 
noise  source  prediction  subroutines. 
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4.3.1  AERO  - Airframe  Aerodynamic  Noise 


This  subroutine  calculates  the  1/3  octave-band  spectrum  resulting  from  the 
motion  of  the  airframe  through  the  atmosphere.  The  calculation  procedure  is 
based  on  the  methodology  discussed  in  Section  2.4.1. 

The  required  variables  are: 

(1)  source  to  observer  distance  (STOD) 

(2)  azimuthal  angle  (AZHANG) 

(3)  atmospheric  absorption  coefficients  (ALPHA) 

(4)  1/3  o.b.  center  frequencies  (F) 

(5)  aircraft  velocity  (VAC) 

(6)  wing  surface  area  (SA) 

(7)  aspect  ratio  (AR) 

(8)  maximum  wing  thickness  (THICK) 

The  reference  OASPL  at  a distance  of  one  foot  Is  given  by 

OASPL  - 10  log10  + 7-0 

AR2  (1-XHN)4 

where  XMN  is  the  aircraft  Mach  number. 

The  output  Is  the  1/3  octave-band  spectrum. 

The  subroutine  logic  path  is  shown  in  the  following  flow  chart  (Figure  2-7). 
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4.3.2  FAN  - Fan  Noise 


This  subroutine  calculates  the  total  1/3  octave-band  spectrum  for  the  forward 
and  aft  components  of  fan  noise  produced  by  a single-stage  turbofan  engine. 
The  methodology  for  the  calculation  procedure  is  described  in  Sections  2.1.1. 


Provisions  are  made  to  p-  <int  for  inlet  and/or  exhaust  duct  treatment 
effects.  The  subroutine  o calculates  the  geometrical  relations  (shown  in 
Figure  2-8)  needed  to  calculate  the  shielding  effect  on  the  aft  fan  component 
when  the  USB  (NOPTS*  3)  or  Hybrid  (NOPTS  * 6)  option  Is  exercised.  The  source 
is  located  at  the  center  of  the  i.cziie  exit  for  these  calculations. 

The  required  variables  are: 

(1)  source-to-observer  distance  (STOD) 

(2)  azimuthal  angle  (AZMANG) 

(3)  atmospheric  absorption  coefficients  (ALPHA) 

(4)  1/3  o.b.  center  frequencies  (F) 

(5)  weight  flow  through  fan  (WFF) 

(6)  pressure  ratio  of  fan  (PRF) 

(7)  diameter  of  fan  (DF) 

(8)  temperature  of  fan  flow  (TF) 

(9)  insertion  loss  (APNdB)  due  to  inlet  treatment  (TREATF) 

(10)  insertion  loss  (APNdB)  due  to  exhaust  duct  treatment  (TREATA) 

( 1 1 ) key  to  determine  type  of  h i gh— lift  system  (NOPTS) 

If  NOPTS  * 3 or  NOPTS  a 6,  the  following  are  also  required: 

(1)  distance  along  wing  from  projection  of  nozzle  exit  to  wing  trailing 
edge  (XI) 

(2)  vertical  distance  from  wing  surface  to  center  of  nozzle  exit  (Yl) 

(3)  length  of  flaps  (FLAR1,  FLAP2,  and  FLAP3) 

(4)  flap  angles  (FLPAG1 , FLPAG2,  and  FLPAG3) . 
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The  reference  OASPL  is  given  by 


0 286 

OASPL  = 10  • 1og10  (WFF)  + 20  • log10  (PRF  ' - 1)  + 127.0 

The  output  is  the  total  1/3  octave-band  spectrum  composed  of  the  forward  and 
aft  component  spectra. 

The  subroutine  logic  path  is  shown  in  the  following  flow  chart  (Figure  2-9). 


Figure  2-9.  FAN  Flow  Chart, 


4.3.3  TURBNE  - Turbine  Noise 

This  subroutine  calculates  the  1/3  octave-band  spectrum  from  the  engine 
turbine.  The  methodology  used  to  develop  this  prediction  procedure  is  dis- 
cussed in  Section  2.1.2.  The  shielding  effects  are  determined  as  discussed 
for  fan  noise  (Section  4.3.2)  for  the  source  located  at  the  nozzle  exit. 
The  required  variables  are: 

(1)  source-to-observer  distance  ($T0D) 

(2)  azimuthal  angle  (AZMANG) 

(3)  atmospheric  absorption  coefficients  (ALPHA) 

(4)  1/3  o.b.  center  frequencies  (F) 

(5)  pressure  ratio  of  turbine  (PRT) 

(6)  velocity  of  blade  tip  (VTIPT) 

(7)  diameter  of  turbine  main  stage  (DTURB) 

(8)  number  of  turbine  blades  in  main  stage  (BLADES) 

(9)  turbine  RPM  (TRPM) 

(10)  percent  power  of  operation  (PCTP) 

(11)  insertion  loss  (APNd8)  due  to  turbine  treatment  (TREATT) 

(12)  key  to  determine  the  type  of  high-lift  system  (NOPTS) 

If  NOPTS  = 3 or  NOPTS  »6,  the  following  are  also  required: 

(1)  distance  along  the  wing  from  projection  of  nozzle  exit  to  wing 
trai 1 ing  edge  (XI) 

(2)  vertical  distance  from  wing  surface  to  the  center  of  the  nozzle 
exit  (Yl) 

(3)  length  of  flaps  (FLAP1 , FLAP2 , and  FLAP3) 

(4)  flap  angles  (FLPAG1,  FLPAG2,  and  FLPAG3) . 

The  reference  OASPL  is  given  by 


1 0.286  VTIPT 

OASPL  = 8.75  • log  jo  (1  - (~)  ) + 20  • log10 

+ 10  • log i q (AREA)  + 138.9 
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4.3.4  JET  ~ Jet  Exhaust  Noise 


This  subroutine  calculates  the  1/3  octave-band  spectrum  (SPL)  from  the  engine 
core  and/or  fan  exhaust.  The  methodology  used  to  develop  this  prediction  pro- 
cedure is  discussed  in  Section  2.2. 

This  subroutine  will  calculate  the  noise  for  three  nozzle  configurations  as 
shown  in  Figure  2-4  and  listed  below: 

(1)  circular,  with  or  without  plug 

(2)  slot 

(3)  coaxial,  with  or  without  plug  in  primary  nozzle. 

For  each  configuration,  the  diameter  (DEQUIV)  of  an  equivalent  area  unplugged 
circular  nozzle,  an  equivalent  velocity  (VEQUIV),  a hydraulic  diameter,  and  an 
equivalent  temperature  (TTEQ)  are  calculated.  These  four  values  are  a’so  used 
in  EXCESS  and  the  "high-lift  source"  subroutines  for  values  of  NOPTS  equal  to 
2,  3,  and  6.  Therefore,  JET  must  be  called  before  these  subroutines. 


The  subroutine  accounts  for  the  effect  of  the  presence  of  turning  vanes  in  the 
flow  of  the  vectored  thrust  configuration.  It  also  calculates  the  geometrical 
relations  (shown  in  Figure  2-8)  needed  to  calculate  the  shielding  effect  when 
the  USB  (NOPTS  *=  3)  or  Hybrid  (NOPTS  =6)  option  is  e ercised.  The  source  is 
assumed  to  be  located  2 * DEQU I V downstream  of  the  nozzle  exit  for  these  calcu- 
lations. The  shielding  values  are  applied  to  the  jet  noise  spectrum. 

The  required  variables  are: 

(1)  source-to-observer  distance  (STOD) 

(2)  azimuthal  angle  (AZMANG) 

(3)  atmospheric  absorption  coefficients  (ALPHA) 

(4)  1/3  o.b.  center  frequencies  (F) 

(5)  key  to  determine  nozzle  configurations  (NOPTJ) 

For  N0PT3  = 1 or  3, 

(6)  diameter  of  primary  plug  ( DPLUG) 
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(7)  outer  diameter  of  primary  nozzle  ( DPR I M) 

(8)  velocity  of  exhaust  from  primary  nozzle  (VJPRIM) 

(9)  total  temperature  of  exhaust  from  primary  nozzle  (TTPRIM) 

(10)  angle  of  nozzle  relative  to  the  horizontal  (ANGNOZ) 

For  NOPTJ  = 3, 

(11)  inner  diameter  of  secondary  nozzle  (DANIN) 

(12)  outer  diameter  of  secondary  nozzle  (DANOUT) 

(13)  velocity  of  exhaust  of  secondary  nozzle  (VJSEC) 

(14)  total  temperature  of  exhaust  of  secondary  nozzle  (TTSEC) 

For  NOPTJ  = 2, 

(15)  height  of  nozzle  (HNOZ) 

(16)  width  of  nozzle  (WNOZ) 

(17)  velocity  of  exhaust  (VJPRIM) 

(18)  total  tamperature  of  exhaust  (TTPRIM) 

(19)  angle  of  nozzle  relative  to  the  horizontal  (ANGNOZ) 

If  NOPTS  = 3 OF  N0PTS“6,  the  following  are  also  required: 

(1)  distance  along  the  wing  from  projection  of  nozzle  exit  to  wing 
trai 1 ing  edge  (XI) 

(2)  vertical  distance  from  wing  surface  to  the  center  of  the  nozzle 
exit  ( Y 1 ) 

(3)  length  of  flaps  ( F LAP  1 , FLAP2,  and  FLAP3) 

(4)  flap  angles  (FLPA61 , FLPA62 , and  FLPA63) 

The  reference  OASPL  is  given  by 

OASPL  =KA+A+B+C 


where 

KA  = 134  when  no  plug  is  used 

= 134+3  • log10(o.1  + 2 (—))  with  plug 

H = annulus  height  of  primary 
82  = outer  diameter  of  primary  (DPRIM), 
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Figure  2-11.  Continued. 
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4.3«5  EXCESS  - Excess  Engine  Noise 

This  subroutine  calculates  the  1/3  octave-band  spectrum  for  the  excess  engine 
noise  source  which  includes  core  and  tailpipe  noise.  The  definition  and  dis- 
cussion of  this  source  and  the  prediction  method  is  presented  in  Section  2.1.3. 

The  subroutine  also  calculates  the  geometrical  relations  (shown  in  Figure  2-8) 
needed  to  calculate  the  shielding  effect  when  the  USB  (NOPTS ** 3)  or  Hybrid 
(NOPTS  «6)  option  is  exercised.  The  source  is  assumed  to  be  located  at  the 
center  of  the  nozzle  exit  for  these  calculations. 


The  required  variables  are: 

(1)  source  to  observer  distance  (STOD) 

(2)  azimuthal  angle  (AZMANG) 

(3)  atmospheric  absorption  coefficients  (ALPHA) 

(4)  1/3  o.b.  center  frequencies  (F) 

(5)  engine  nozzle  angle  relative  to  horizontal  (ANGNOZ) 

(6)  diameter  of  equivalent  unplugged  circular  nozzle  (DEQUIV) 

(7)  velocity  of  equivalent  unplugged  circular  nozzle  (VEQUIV) 

(8)  key  to  determine  type  of  high  lift  system  (NOPTS). 

If  NOPTS  = 3 or  NOPTS  *6,  the  following  are  also  required: 

(1)  distance  along  wing  from  projection  of  nozzle  exit  to  wing  trailing 
edge  (XI ) 

(2)  vertical  distance  from  wing  surface  to  center  of  nozzle  exit  (Yl) 

(3)  length  of  flaps  (FLAP1,  FLAP2,  and  FLAP3) 

(4)  flap  angles  (FLPAG1 , FLPAG2,  and  FLPAG3) . 


The  reference  OASPL  Is  given  by 

OASPL  = 10  • log10(lOO  A U6) 

, . . , . . /DEQUIV2  • Tix 

where  A = equivalent  nozzle  area  ( jp ) 

U = VEQUIV 


The  output  is  the  1/3  octave  band  spectrum. 
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Since  this  subroutine  uses  two  values  calculated  in  JET,  it  must  never 
called  unless  JET  has  previously  been  called. 


The  subroutine  logic  path  is  shown  in  the  following  chart  (Figure  2-12) 


4.3-6  AUGWNG  ~ Augmentor  Wing  Noise 

This  subroutine  calculates  the  1/3  octave  band-spectrum  considering  the  entire 
augmentor  wing  high  lift  system  as  one  source.  This  subroutine,  therefore, 
should  be  called  only  for  NOPTS  * 5 (AW  configuration)  and  should  be  the  only 
high-lift  noise  source  subroutine  called.  The  methodology  used  to  develop 
this  prediction  procedure  is  described  in  Section  2.3.5. 

The  required  variables  are: 

(1)  source- to-observer  distance  (STOD) 

(2)  azimuthal  angle  (AZMANG) 

(3)  elevation  angle  (ELVANG) 

(4)  atmospheric  absorption  coefficients  (ALPHA) 

(5)  1/3  o.b.  center  frequencies  (F) 

(6)  height  of  wing  slot  nozzle  (HWNOZ) 

(7)  width  of  wing  slot  nozzle  (WWNOZ) 

(8)  velocity  of  wing  slot  nozzle  exhaust  (VJWNOZ) 

(9)  length  of  ejector  (EJL) 

(10)  ejector  angle  (EJANG) 

The  reference  OASPL  is  calculated  using  the  expression, 

OASPL  = 60  * log! o (VJWNOZ)  + 10  • log  10  (AP.EA) 

- 5 • log10(EJLHW/10)  - 30.6 

where 

AREA  = nozzle  area  (HWNOZ  • WWNOZ) 

EJLHW  = ratio  of  ejector  length  to  nozzle  height  (EJL/HWNOZ). 

The  output  is  the  total  1/3  octave-band  spectrum  produced  by  the  augmentor 
wing  high-lift  system. 

In  this  calculation  procedure  the  AW  is  considered  to  be  a slot  nozzle  with 
hard-wall  ejector.  The  use  of  multi-lobe  nozzle  with/or  without  lined  ejector 
can  reduce  the  noise  levels  substantially.  The  effect  of  these  modifications 
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are  determined  in  the  noise  reduction  option  described  in  Sections  4.1.2  and 
4.4.6. 

The  subroutine  logic  path  is  shown  in  the  following  flow  chart  (Figure  2-13). 
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Figure  2-13.  AUGWNG  Flow  Chart. 
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4. 3. 7 WNGJET  - Wing  Jet  Noise 


This  subroutine  calculates  the  1/3  octave  band  spectrum  of  jet  noise  from  a 
wing  slot  nozzle.  The  methodology  is  the  same  used  in  JET.  It  assumes  that 
the  nozzle  will  be  located  at  the  wing  trailing  edge  for  the  Hybrid  (N0PTS  = 6) 
and  IBF/BLC  (N0PTS=4)  configurations  and  at  the  last  flap  trailing  edge  for 
the  IBF/JF  (NOPTS  = 4). 

This  subroutine  calculates  the  diameter  (DE)  of  the  equivalent  area  circular 
nozzle;  DEQUIV  will  be  set  to  that  value  for  the  IBF  (N0PTS=A).  Also,  the 
value  of  VEQUIV  is  set  to  VJWNOZ  for  the  IBF  case. 

The  geometrical  relations  (Figure  2-8)  needed  to  calculate  the  shielding 
effect  are  also  calculated  in  this  subroutine.  The  source  is  assumed  to  be 
located  2DE  downstream  from  the  nozzle  exit.  The  shielding  values  are  applied 
to  the  wing  jet  noise  spectrum.  The  value  of  the  shielding  effect  is  set  to 
0.0  for  the  I8F/JF  since  the  wing  slot  nozzle  is  at  the  flap  trailing  edge. 

The  required  variables  are: 

(1)  source-to-observer  distance  (STOD) 

(2)  azimuthal  angle  (AZMANG) 

(3)  atmospheric  absorption  coefficients  (ALPHA) 

(4)  1/3  o.b.  center  frequencies  (F) 

(5)  height  of  wing  slot  nozzle  (HWNOZ) 

(6)  width  of  wing  slot  nozzle  (WWNOZ) 

(7)  velocity  of  wing  slot  nozzle  (VJWNOZ) 

(8)  angle  of  nozzle  centerline  relative  to  horizontal  plane  (ANGWNZ) 

(9)  total  temperature  of  wing  slot  nozzle  exhaust  (TTWNOZ) 

(10)  flap  lengths  (FLAP  1 , FLAP2,  and  FLAP3) 

(11)  flap  angles  (FLPAG1 , FLPAG2,  and  FLPAG3) • 

The  values  of  items  10  and  11  should  be  0.0  for  the  IBF/JF  configuration. 

The  reference  0ASPL  is  calculated  using  the  same  equation  as  shown  in  JET, 
Section  4.3.^*  with  the  nozzle  dimensions  being  those  of  the  wing  slot  nozzle 
instead  of  the  engine  nozzle  and  the  value  of  KA  is  always  13^. 
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The  output  is  the  1/3  octave  band  spectrum. 

The  subroutine  logic  path  is  shown  in  the  following  flow  chart  (Figure  2-1 4) . 
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4.3-6  IMPlNG  ~ impingement  Noise 

This  subroutine  calculates  the  l/3  octave-band  spectrum  for  the  jet  flow  im- 
pinging on  the  wing  or  flaps  using  the  methodology  developed  in  Section  2.3*1. 

It  is  assumed  that  only  the  EBF,  USB,  and  Hybrid  can  have  impingement  noise; 
therefore,  this  subroutine  is  set  up  to  handle  only  these  three  configurations. 

Using  the  geometrical  parameters  in  Figure  2- 1 5 » the  impingement  area  (Al)  is 
calculated  as  a function  of  impingement  velocity  (VIP)  and  angle  of  impinge- 
ment (ALPH)  for  calculating  the  reference  OASPL. 

The  shielding  effects  of  the  wing  and  flaps  for  the  USB  and  Hybrid  configura- 
tions are  programmed  into  the  directivity  indices  which  are  applied  in  the 
calculation  of  OASPL. 

The  required  variables  are: 

(1)  key  to  determine  type  of  high-lift  system  (NOPTS) 

(2)  source-to-observer  distance  (STOD) 

(3)  azimuthal  angle  (AZMANG) 

(4)  elevation  angle  (ELVANG) 

(5)  atmospheric  absorption  coefficients  (ALPHA) 

(6)  1/3  o.b.  center  frequencies  (F) 

(7)  equivalent  nozzle  diameter  from  JET  (DEQUIV) 

(8)  equivalent  exhaust  velocity  from  JET  (VEQUIV) 

(9)  equivalent  exhaust  total  temperature  from  JET  (TTEQ) 

(10)  hydraulic  diameter  from  JET  (HD) 

(11)  angle  between  nozzle  centerline  and  wing  centerline  (ALPHA1) 

(12)  distance  along  wing  from  projection  of  nozzle  exit  on  the  wing 
to  wing  t.e.  (XI) 

(13)  vertical  distance  from  the  wing  surface  to  the  center  of  the 
nozzle  exi t (Yl) 

(14)  length  of  flaps  ( FLAP  1 , FLAP2,  and  FLAP3) 

(15)  flap  angles  (FLPAG1 , FLPAG2 , and  FLPAG3) 

(16)  key  to  determine  nozzle  configuration  (NOPTJ) 
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eometry  Schematic 


NOPTJ  = 2 


(17)  height  of  engine  slot  nozzle  (HNOZ) 

( 1 8)  width  of  engine  slot  nozzle  (WNOZ) . 

The  reference  OASPL  is  calculated  using  the  expression, 

OASPL  = 10  • log10  (aI  • sin2  (ALPH))  + 80  • log10  (VIP)  - 74. 

The  output  is  the  1/3  octave  band  spectrum. 

The  restrictions  of  this  subroutine  are: 

(1)  NOPTS  must  be  2,  3.  or  6;  values  of  4 or  5 wi 1 1 send  control  back 
to  ST0LPR0G  with  no  calculations. 

(2)  flow  for  the  USB  and  Hybrid  must  impinge  on  wing. 

(3)  JET  must  be  called  prior  to  IMPING. 

The  subroutine  logic  path  is  shown  in  the  following  chart  (Figure  2-16). 
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fr.3.9  WALJET  - Wall  Jet  Noise 


This  subroutine  calculates  the  1/3  octave-band  spectrum  from  the  formation  of 
the  wall  jet  on  the  wing  and/or  flap  surface,  using  the  methodology  developed 
in  Section  2.3.2. 

The  basic  geometrical  relations  used  in  this  subroutine  are  the  same  as  those 
shown  in  Figure  2-15  for  IMPING.  However,  this  subroutine  must  also  calculate 
values  of  the  flow  parameters  from  the  IBF/BLC  wing  slot  nozzle  over  the 
surface.  The  relations  used  for  IBF/BLC  are  the  same  as  those  shown  for  the 
USB  and  Hybrid  with  ALPHA1  and  XI  being  assumed  to  be  0.0. 

The  parameters  associated  with  the  flow  over  the  surface  are  also  calculated 
as  shown  in  Figure  2-17.  The  EBF  may  have  either  a slot  or  circular/coaxial 
nozzle  but  the  USB  and  Hybrid  are  assumed  to  have  only  a slot  nozzle.  The 
IBF/BLC  is  assumed  to  have  a wing  slot  nozzle.  The  other  three  (VT,  IBF/JF 
and  AW)  configurations  do  not  have  any  wall  jet  flow  and  therefore,  no  provi- 
sion is  made  to  account  for  them. 

The  shielding  effects  of  the  wing  and  flaps  for  the  USB,  Hybrid  and  IBF/BLC 
configurations  are  programmed  into  the  directivity  indices  which  are  applied 
to  the  reference  OASPL. 

The  required  variables  are: 

(1)  key  to  determine  type  of  high  lift  system  (NOPTS) 

(2)  source-to-observer  distance  (STOD) 

(3)  azimuthal  angle  (AZMANG) 

(A)  elevation  angle  (ELVANG) 

(5)  atmospheric  absorption  coefficients  (ALPHA) 

(6)  1/3  o.b.  center  frequencies  (F) 

(7)  flap  lengths  (FLAP1,  FLAP2,  and  FLAP3) 

(8)  flap  angle  (FLPAG1 , FLPAG2 , and  FLPAG3) • 

NOPTS  = 2,  3,  or  6 

(1)  equivalent  nozzle  diameter  form  JET  ( DEQU ! V ) 

(2)  equivalent  exhaust  velocity  from  JET  (VEQUIV) 
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(3)  equivalent  exhaust  total  temperature  from  JET  (TTEQ) 

(4)  angle  between  engine  nozzle  and  wing  (ALPHA1) 

(5)  distance  along  the  wing  from  projection  of  engine  nozzle  center  to 
wing  t.e.  (XI) 

(6)  vertical  height  from  the  wing  surface  to  nozzle  center  (Yl) 

(7)  key  to  determine  engine  nozzle  configuration  (NOPTJ) 


NOPTJ  « 2 

(8)  height  of  engine  slot  nozzle  (HNOZ) 

(9)  width  of  engine  slot  nozzle  (WNOZ) 

NOPTS  = 4 

(1)  equivalent  nozzle  diameter  from  WNGJET  (DEQUIV) 

(2)  equivalent  exhaust  velocity  from  WNGJET  (VEQUIV) 

(3)  equivalent  exhaust  total  temperature  from  WNGJET  (TTEQ) 

(4)  height  of  wing  slot  nozzle  (HWNOZ) 

(5)  width  of  wing  slot  nozzle  (WWNOZ) 

The  reference  OASPL  is  calculated  using  one  of  the  following  expressions, 
NOPTS  - 2 

OASPL  - 10  • logl0  (XPRIM  • B)  +80  log10(U)  - 105 
where  U «*  VEQUIV, 

NOPTS  - 3,  4,  or  6 

OASPL  - 10  • log (RL  • B)  + 80  log10(U)  - 105 
where  U = VEQUIV. 

The  output  is  the  1/3  octave-band  spectrum. 

The  restrictions  of  this  subroutine  are: 

(1)  USB,  Hybrid  and  IBF/BLC  must  use  slot  nozzles. 

(2)  JET  or  WNGJET  must  be  called  prior  to  WALJET, 

The  subroutine  logic  path  is  shown  in  the  following  flow  chart  (Figure  2-1 S) . 
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Figure  2-18.  WALJET  Flow  Chart, 
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4. 3. 10  WAKE  - Trailing  Edge  Wake  Noise 

This  subroutine  calculates  the  total  1/3  octave-band  spectrum  of  the  noise 
levels  generated  in  the  wake  of  the  propulsive  high-lift  airflow  downstream  of 
the  flap  trailing  edge.  The  methodology  for  the  calculation  procedure  is  dis- 
cussed in  Section  2.3.**. 

This  subroutine  should  normally  be  called  for  NOPTS  = 2 (EBF) , 3 (USB),  4 
(IBF/BLC),  and  6 (HYBRID).  For  NOPTS  = 4 (IBF/JF),  this  subroutine  should  not 
be  called.  For  the  Hybrid  configuration,  wake  noise  is  calculated  only  for 
the  engine  exhaust  airflow;  the  wake  noise  component  of  the  flow  from  the  slot 
nozzle  is  assumed  to  be  insignificant. 

The  geometrical  relationships  required  by  WAKE  are  calculated  within  the  sub- 
routine and  are  shown  in  Figure  2-15*  The  geometry  for  IBF/BLC  is  similar  to 
Figure  2-1 5(d),  except  ALPHA1  is  assumed  equal  to  zero.  Shielding  is  not 
applied  to  wake  noise. 

The  key  input  variables  are: 

(1)  key  to  determine  type  of  high-lift  system  (NOPTS) 

(2)  1/3  o.b.  center  frequencies  (F) 

(3)  atmospheric  absorption  coefficients  (ALPHA) 

(4)  source-to-observer  distance  (STOD) 

(5)  azimuthal  angle  (AZMANG) 

(6)  flap  lengths  (FLAP1 , FLAP2,  and  FLAPS) 

(7)  flap  angles  (FLPAG1 , FLPAG2,  and  FLPAG2) . 


If  NOPTS  = 2,  3>  or  6,  the  following  are  required  for  the  engine  exhaust 
nozzle: 

(1)  distance  from  nozzle  exit  to  wing  trailing  edge  measured  parallel  to 
wi ng  center! ine  (XI ) 

(2)  distance  from  nozzle  exit  to  wing  surface  measured  perpendicular  to 
wing  centerline  (Y1) 

(3)  angle  between  nozzle  centerline  and  wing  centerline  (ALPHA1) 

(4)  jet  equivalent  exhaust  velocity  (VEQUIV) 

(5)  jet  equivalent  exhaust  total  temperature  (TTEQ) 
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(6)  nozzle  exit  equivalent  diameter  (DEQUIV) 

(7)  nozzle  exit  hydraulic  diameter  (HD). 

For  N0PTS»2,  NOPTJ  is  also  required;  a key  to  indicate  nozzle  exit  geometry. 

For  N0PTS*2,  NOPTJ  is  also  required;  a key  to  indicate  nozzle  exit  geometry, 
ters  required  are: 

(1)  height  of  the  slot  nozzle  (HNOZ) 

(2)  width  of  the  slot  nozzle  (WNOZ) . 

If  N0PT$*4,  the  following  wing  nozzle  parameters  are  needed: 

(1)  jet  total  temperature  (TTWNOZ) 

(2)  jet  exhaust  velocity  (VJWNOZ) 

(3)  height  of  the  wing  nozzle  (HWNOZ) 

{k)  width  of  the  wing  nozzle  (WWNOZ) 

(5)  distance  from  nozzle  exit  to  wing  trailing  edge  measured  parallel 
to  wing  centerline  (normally  - 0.0)  (Xl). 

The  expression  used  for  OASPL  in  this  subroutine  is: 

OASPL  - 10  log j0  (DELTA  • B)  + 80  log10  (VTE)  - 111.0 

where  VTE  is  the  velocity  at  the  trailing  edge  and  DELTA  and  B are  illustrated 
in  Figure  2- 17- 

The  restrictions  are:  (1)  For  NOPTS * 4 (IBF/BLC),  this  subroutine  assumes 

that  ALPHA1  will  be  input  as  zero  and  that  Y1  will  be  input  eS  HWN0Z/2,  and 
(2)  for  NOPTS  = 3 (USB)  and  6 (HYBRID),  the  engine  nozzle  exit  dimensions  must 
be  described  in  terms  of  an  equivalent  nozzle  height  and  width  if  a slot 
nozzle  is  not  used. 

The  output  is  the  1/3  octave-band  spectrum  for  the  wake  noise  component. 

The  subroutine  logic  path  is  shown  in  the  following  flow  chart  (Figure  2-19). 
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Figure  2-19.  Continued 


4.3.11  TRAIL  - Trailing  Edge  Noise 

This  subroutine  calculates  the  1/3  octave-band  spectrum  of  the  noise  generated 
by  engine  high- ! I ft  airflow  leaving  the  flap  trailing  edge.  The  methodology 
for  the  calculation  procedure  is  discussed  in  Section  2.3.3. 

This  subroutine  should  normally  be  called  for  NOPTS  ■ 2 (EBF) , 3 (USB),  4 
(IBF/BLC),  and  6 (HYBRID),  but  should  not  be  called  for  NOPTS  ■ 4 (IBF/JET  FLAP). 
For  the  Hybrid  configuration,  this  is  based  on  engine  nozzle  geometry  and  air- 
flow parameters.  As  with  all  the  high-lift  noise  sources  (impingement,  wall- 
jet,  wake,  and  trailing  edge),  for  the  Hybrid  configuration,  it  is  assumed  that 
the  dominant  component  of  these  sources  is  derived  from  the  engine  nozzle  air- 
flow and  that  the  wing  nozzle  contribution  may  be  neglected. 

The  geometrical  relationships  used  in  TRAIL  are  calculated  within  the  sub- 
routine and  are  Illustrated  in  Figure  2-15.  The  geometry  for  IBF/BLC  configu- 
rations is  similar  to  the  USB  and  Hybrid  as  shown  In  Figure  2-1 5(d),  except 
ALPHA1  Is  assumed  to  be  zero.  Wing  shielding  Is  not  calculated  separately  but 
is  included  in  the  directivity  of  the  noise. 

The  required  input  variables  for  TRAIL  are  the  same  as  those  described  for  WAKE 
in  the  preceding  section,  except  that  WAKE  also  requires  the  aircraft  elevation 
angle  relative  to  the  observer  (ELVANG). 

The  reference  OASPL  is  calculated  from  the  following  expression: 

OASPL  - 10  log J0  (DELTA*  B)  + 50  log10  (VTE)  - 6.0  + TURB 

where  VTE  is  the  velocity  at  the  trailing  edge  and  DELTA  and  B are  shown  in 
Figure  2-17-  TURB  is  a factor  added  to  account  for  the  location  of  the 
turbulence  center. 

The  restrictions  which  apply  to  WAKE  (Section  4.3.10)  also  apply  to  TRAIL. 

* 

The  output  is  the  1/3  octave-band  spectrum  of  sound  pressure  levels. 

The  subroutine  logic  path  is  shown  in  the  following  flow  chart  (Figure  2-20). 
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Figure  2-20.  Continued. 
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4.3.12  APU  - Auxiliary  Power  Unit 

This  subroutine  calculates  he  noise  level  produced  by  the  auxiliary  power  unit 
and  radiated  to  an  observer  located  some  finite  distance  from  the  source.  Due 
to  the  limited  amount  of  data  available  for  this  noise  source  this  prediction 
method,  discussed  in  Section  2.4.2,  yields  only  the  perceived  noise  level 
corrected  for  spherical  divergence  to  the  source-to-observer  distance.  It  does 
not  account  for  any  directional  effects. 

There  are  two  options  for  this  prediction:  one  is  based  on  the  bleed  capacity, 
and  the  other  is  based  on  the  shaft  horsepower  output  of  the  APU. 

The  required  variables  are: 

(1)  key  to  denote  which  option  of  calculation  is  used  (NOPTA) 

- 1 uses  bleed  capacity  (BC) 

■ 2 uses  shaft  horsepower  (SHP) 

(2)  source-to-observer  di stance  (STOD) . 

Method  one  (NOPTA*  1)  uses  the  expression, 

PNLAPU  - 103.0  +0.11  • BC 

to  determine  the  perceived  noise  level  (PNLAPU)  at  distance  of  1 foot.  Method 
two  (NOPTA  * 2)  uses  the  expression, 

PNLAPU  - 106.0  + 0.106  • SHP  . 

The  output  is  the  pe»ceived  noise  level  radiated  to  the  observer. 


The  subroutine  logic  path  is  shown  in  the  following  flow  chart  (Figure  2-21). 


4,4  ADDITIONAL  SUBROUTINES 

In  addition  to  the  twelve  major  noise  source  prediction  subroutines,  discussed 
in  Section  4.3,  the  overall  program  includes  ten  subroutines  which  perform 
auxiliary  functions.  These  functions,  due  to  their  length  and  frequent  use  by 
the  main  program  and/or  the  twelve  major  subroutines,  were  programmed  as 
separate  subroutines.  The  following  are  the  descriptions,  with  detailed  flow 
charts  {for  the  six  subroutines  programmed  for  this  prediction  procedure),  and 
explanatory  figures  for  these  ten  subroutines. 


4.4.1  EGA  - Extra  Ground  Attenuation 

This  subroutine  calculates  the  changes  in  SPL  spectra  resulting  from  ail  or  a 
portion  of  the  acoustic  ray  path  being  within  the  turbulent  boundary  layer  of 
the  earth,  estimated  to  be  100  feet.  The  curves  presented  in  SAE  AtR  923  for 
the  10  knots  downwind  condition  form  the  basis  for  this  calculation  as  de- 
scribed in  Section  3*4.  The  conditions  could  be  varied  to  accommodate  other 
wind  conditions  by  replacing  the  stored  data  in  the  subroutine  with  that  for 
the  desired  conditions. 

The  required  variables  are: 

(1)  source-to-observer  distance  (STOD) 

(2)  aircraft  altitude  (ALT) 

(3)  1/3  o.b.  center  frequencies  (F). 

Using  these  values  and  the  known  observer  height  (4  ft),  the  length  of  the 
acoustic  ray  within  the  100  ft.  boundary  layer  of  the  earth  can  be  determined 
based  on  the  geometrical  relations  shown  in  Figure  2-22. 

The  output  is  an  array  of  spectral  corrections  to  be  subtracted  from  the  pre- 
dicted SPL  spectra. 

These  values  are  maximum  when  ANGLE  (see  Figure  2-22)  is  0.0  degrees  and  are 
0 when  ANGLE  is  greater  than  or  equal  to  30.0  degrees. 

The  subroutine  logic  path  is  shown  in  the  following  flow  chart  (Figure  2-23). 
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Figure  2-23.  Continued. 
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4.4.2  GRE  ~ Ground  Reflection  Effect 


This  subroutine  calculates  the  spectral  changes  resulting  from  the  acoustic 
cancellations  and  reinforcements  caused  by  the  reflection  of  the  acoustic  rays 
from  a surface.  These  effects  are  calculated  considering  a perfect  reflecting 
surface;  however,  the  equations  can  be  modified  to  include  other  surfaces  as 
described  in  Section  3*3- 

The  required  variables  are: 

(1)  source-to-observer  distance  (STOD) 

(2)  aircraft  elevation  angle  (ELVANG) 

(3)  aircraft  altitude  (ALT) 

(4)  1/3  o.b.  center  frequencies  (F). 

From  these  and  the  known  observer  height  (4  ft.)  the  length  of  the  direct  ray 
and  the  reflected  ray  can  be  determined,  for  use  in  the  above  methodology. 

The  output  is  an  array  of  spectral  corrections  to  be  added  to  the  predicted 
free-field  spectrum. 

The  restrictions  for  this  subroutine  are: 

(1)  the  elevation  angle  must  be  between  0°  - 90° 

(2)  the  value  of  acoustic  cancellations  are  limited  to  -30  dB. 

The  subroutine  logic  path  is  shown  In  the  following  flow  chart  (Figure  2-24). 
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This  subroutine  calculates  the  spectral  change  produced  by  shielding  of  the 
noise  source  by  the  wing/flaps.  The  wing  shielding  effect  is  computed  spec 
trally  using  the  optical  diffraction  method  described  in  Section  3*5 


The  required  variables  are: 

(1)  aircraft  elevation  angle  (ELVANG) 

(2)  source-to-barrler  distance  (SD) 

(3)  equivalent- barrier  height  (BH) 

(4)  boundary- to-observer  distance  (OD) 

(5)  1/3  o.b.  center  frequencies  (F). 


SD,  BH,  and  OD  are  calculated  by  the  calling  subroutines  based  on  the  individu- 
al source  locations.  The  geometrical  variables  used  for  these  calculations  are 
shown  in  Figure  2-8. 


The  output  is  the  change  in  $PL  resulting  from  the  shielding.  The  values  of 
wlng/flap  shielding  are  United  to  a minimum  of  0 and  a maximum  of  20  in  any 
1/3  octave  band.  The  value  of  fuselage  shielding  is  discussed  In  Section  4.2  . 

The  subroutine  logic  path  is  shown  in  the  following  flow  chart  (Figu. a 2-25). 
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4.4.4  FWDSPD  ~ Forward  Speed  Effects  on  Level 

This  subroutine  calculates  the  change  in  PNL  (APNdB)  resulting  from  the  forward 
speed  of  the  aircraft,  as  described  in  Section  3*2.  Values  are  calculated 
using  the  equation 

APNdB  - 10  • k • 1og10  (1  - VAC  cos (ANG) /VEL) 


where: 

k * power  factor  which  varies  with  high  lift  system  and  configuration 
as  described  in  Section  3.2.2. 

VAC  * aircraft  velocity  along  flight  path. 

ANG  - nozzle  angle  (ANGNOZ  for  NOPTS  - 1,  2,  3,  6; 

ANGWNZ  for  NOPTS  - 4) 

VEL  - nozzle  velocity  (VEQUIV  for  NOPTS  - 1,  2,  3,  6; 

VJWNOZ  for  NOPTS  - 4,  5) 


The  required  variables  are: 

(1)  key  to  determine  type  of  hlgh-lift  system  (NOPTS) 

(2)  NOPTS  « 1 , 4 none 

(3)  NOPTS  - 2,  flap  length  ( F LAP  1 , FLAP2,  FLAP3) 

(4)  NOPTS  » 3,  6 , elevation  angle  (ELVANG) 

(5)  NOPTS  - 5,  elevation  angle  (ELVANG) 

ejector  angle  (EJANG) 

(6)  all  values  of  NOPTS  require  values  of  ANG  and  VEL  described  above 

(7)  aircraft  velocity  (VAC). 

The  output  is  the  change  in  PNL  level  (APNdB)  of  the  system  specified  by  the 
incoming  value  of  NOPTS. 

The  restriction  for  this  subroutine  is  that  the  aircraft  velocity  (VAC)  must 
be  less  than  the  nozzle  velocity  (VEL). 

The  subroutine  logic  path  is  shown  in  the  following  flow  chart  (Figure  2-26). 
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Figure  2-26.  FWDSPD  Flow  Chart 
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4.4.5  DOPLER  - Frequency  Shift  Due  to  Forward  Speed 

This  subroutine  shifts  1/3  octave-band  spectra  up  or  down  in  frequency  as  required 
to  account  for  the  change  in  frequency  resulting  from  the  aircraft  moving 
toward  or  away  from  the  observer.  The  Doppler  frequency  shift  methodology  is 
briefly  described  below.  The  detailed  discussion  is  presented  in  Section  3.2.1. 


The  value  of  the  Doppler  ratio  (D) 
frequency  shift  as  follows: 

D < 0.445449 
0.445449  < D < 0.56123 
0.561231  < D < 0.707107 
0.707107  < D < 0.890899 
0.890899  < D < 1.122462 
1.122462  < D < 1.414213 
1.414213  < D < 1.781797 
1.781797  < 0 < 2.244924 
D > 2.244924 


is  calculated  and  determines  the  amount  of 

no  shift;  print  diagnostic 
3 1/3  o.b.  downward 
2 1/3  o.b.  downward 

1 1/3  o.b.  downward 

no  shi ft 

1 1/3  o.b.  upward 

2 1/3  o.b.  upward 

3 1/3  o.b.  upward 

no  shift;  print  diagnostic 


where  D is  the  ratio  of  source  frequency  to  observed  frequency  (f/fQ) . 

The  required  variables  are: 

(1)  aircraft  velocity  along  the  flight  path  (VAC) 

(2)  azimuthal  angle  from  aircraft  centerline  to  the  observer  (AZMANG) 

(3)  24-1/3  o.b.  sound  pressure  levels. 


The  output  is  the  shifted  1/3  o.b.  spectrum. 


The  restrictions  for  this  subroutine  are: 

(1)  there  must  be  24-1/3  o.b.  SPL's  in  a single  subscripted  array 
input 

(2)  the  value  of  D must  be  0.445449 < D < 2.244924. 

The  subroutine  logic  path  is  shown  in  the  following  flow  chart  (Figure  2-27). 
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Figure  2-?7.  Continued. 


4.4.6  REDUCE  " Noise  Reduction  Features 


This  subroutine  calculates  the  reduction  in  PNL  (APNdB)  achieved  through  the 
use  of  certain  noise  reduction  features,  described  in  Section  3-6.  These  are 
defined  for  three  types  of  high  lift  systems,  only,  as  follows: 

EBF  (NOPTS  = 2) 

NR1  “ 1 Number  of  flaps  (1-3) 

NR2  * 1 Treatment  on  the  last  flap  trailing  ecige 
NR3  * 1 Slot  blowing  at  last  trailing  edge 


USB  (NOPTS  - 3) 

NR1  « 1 No  reduction  applied 

NR2  * 1 Treatment  on  the  last  flap  trailing  rdge 

NR3  * 1 Slot  blowing  at  last  trailing  edge 


AW  (NOPTS  - 5) 

NR1  « 1 Multi-element  nozzle  with  hard-wall  ejector 
NR2  ■ 2 Multi-element  nozzle  with  lined  ejector 
NR3  * 1 No  reduction  applied. 


A value  of  1 input  for  NREO  implies  that  one  of  the  noise  reduction  Features 
has  been  applied  and  the  values  for  NR1,  NR2,  and  NR3  should  be  checked. 


The  required  variables  are: 

(1)  key  to  determine  the  type  of  high-lift  system  (NOPTS) 

(2)  which  noise  reduction  features  applied  (NR1 , NR2,  NR3) 

(3)  length  of  flaps  (FLAP1,  FLAP2,  FLAP3) 

(4)  elevation  angle  (ELVANG) 

(5)  equivalent  nozzle  velocity  if  system  is  EBf  or  USB  (VEQUIV) 

(6)  siot  height  if  trailing  edge  blowing  is  used  (HSLOT) 

(7)  wing  nozzle  temperature  if  system  is  AW  (TTWNOZ) 

(8)  wing  nozzle  velocity  if  system  is  AW  (VJWNOZ) . 


The  output  is  the  APNdB  produced  by  one  or  more  of  the  noise  reduction 
features. 
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The  restrictions  for  this  subroutine  are: 

(1)  system  type  must  be  EBF,  USB,  or  AW 

(2)  only  one  noise  reduction  feature  may  be  used  with  AW. 


The  subroutine  logic  path  is  shown  in  the  following  flow  chart  (Figure  2-28) 


Fiaure  2-28.  REDUCE  Flow  Chart 


4.4.7  PNLREV  - Calculation  of  Perceived  Noise  Level 


This  subroutine  calculates  the  perceived  noise  le/el  (PNL)  from  octave  or  1/3 
octave-band  spectrum.  It  utilizes  the  methods  defined  in  SAE  ARP-865A.  The 
mathematical  formulation  of  the  Noy  Table,  defined  in  that  document,  is  used 
in  order  to  save  both  space  and  time  during  program  execution. 

The  required  variables  are: 

(1)  spectrum 

(2)  code  to  distinguish  between  octave  band  and  1/3  octave  band 
spectra  (NOCT) 

1 » octave  band 
2*1/3  octave  band. 

The  output  is  the  perceived  noise  level  of  the  input  spectrum. 

The  restrictions  for  the  subroutine  are: 

(1)  The  frequency  range  of  the  spectrum  must  be 

(a)  24 -1/3  octave  bands  centered  from  50  Hz  to  10,000  Hz  or 

(b)  8 octave  bands  centered  from  63  Hz  to  8,000  Hz. 

(2)  The  sound  pressure  level  in  any  band  must  not  exceed  150  dB. 

The  procedures  for  this  calculation  are  well  defined  and  have  been  in  use  for 
several  years.  Therefore,  no  flow  chart  is  presented  for  this  subroutine. 
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4.4.8  TONE  - Calculation  of  Tone  Corrected  PNL 


This  subroutine  calculates  the  correction  to  be  applied  to  the  perceived  noise 
level,  due  to  irregularities  in  the  spectrum.  The  program  uses  the  methods 
and  equations  defined  in  Appendix  B of  FAR  Part  36. 

The  required  inputs  are: 

(1)  1/3  octave-band  spectrum 

(2)  perceived  noise  leve  ".he  spectrum. 

The  output  is  the  value  of  the  tone  corrected  perceived  noise  level. 

This  program  requires  that  the  input  spectrum  consists  of  24  values  of  sound 
pressure  level. 

The  methods  for  this  calculation  are  well  defined  and  have  been  in  use  for 
several  years.  Therefore,  no  flow  chart  is  presented  ror  this  subroutine. 
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A. 4. 9 GjRC  - One  Independent  Variable  Table  interpolation 


This  function  routine  interpolates  a value  of  a dependent  variable  for  the 
desired  value  of  the  independent  variable.  It  requires  an  array  of  independent 
variables  and  the  corresponding  array  of  dependent  variables. 

Entrance  into  this  function  is  of  the  form 

ANS  - GIRC  (ARG,  X,  Y,  NX,  I ORDER) 

where 

ARG  » interpoiant 

X * array  of  independent  variable 
Y ■ array  of  dependent  variable 
NX  » length  of  arrays  X and  Y 
I0RDER  ■ 1 Indicates  first  order  interpolation 
* 2 indicates  second  order  interpolation. 

Upon  return  from  this  function  ANS  will  contain  the  interpolated  value. 

This  is  provided  as  a system  routine  to  users  of  the  Lockheed-Georgia  Company 
UNIVAC  1106  computer.  It  has  been  operational  for  several  years  and  is 
generally  accepted  as  accurate  for  interpolations.  Therefore,  the  internal 
workings  of  this  routine  were  not  investigated  and  no  flow  chart  is  provided. 
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4.4.10  DTAB2  - Two  Independent  Variable  Table  Interpolation 

This  function  routine  interpolates  a value  of  a dependent  variable  for  the 
desired  values  of  the  two  independent  variables.  This  is  done  from  arrays  of 
the  independent  variables  and  the  corresponding  double-subscripted  array  of 
the  dependent  variables. 

Entrance  into  this  function  is  of  the  form 

AMS  - 0TAB2  (XX,  Zl , X,  Z,  NX,  NZ,  KX,  KZ,  Y,  M,  f ERR) 

where 

ANS  ■ interpolated  value  from  Y 
XX  ■ interpolant  in  X direction 
Zl  * interpolant  in  Z direction 
X ■ array  of  X value  (single  subscript) 

Z * array  of  Z value  (single  subscript) 

NX  * number  of  values  in  X 
NZ  * number  of  values  in  Z 
KX  * 1 for  linear  interpolation  in  X 
- 2 for  curvilinear  interpolation  in  X 
KZ  * 1 for  linear  interpolation  in  Z 
« 2 for  curvilinear  interpolation  in  Z 
Y « array  of  Y [double  subscripted:  Y (NZ,  NX)] 

M » row  dimension  of  Y 
I ERR  * 1 for  successful  interpolation 
* 2 for  unsuccessful  interpolation 

The  value  of  IERR  is  returned  from  the  function  routine. 

The  interpolation  is  first  performed  in  the  Z direction  for  enough  values  so 
that  the  interpolation  can  then  be  performed  in  the  X direction  using  these 
interpolated  values. 

This  routine  is  provided  for  UNIVAC  1106  users  at  the  Lockheed-Georgi a Company. 
It  has  been  operational  for  several  years  and  is  generally  accepted  as  accurate. 
Therefore,  the  internal  workings  of  this  routine  were  not  investigated  and  no 
flow  chart  is  provided. 
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5.  MACHINE  REQUIREMENTS 


This  program  Is  designed  to  operate  on  the  UNIVAC  1106.  Approximately  20K 
decimal  words  of  36  bits  each  are  required  for  execution.  Data  input  is 
through  cards  or  80  character  card  images.  Output  may  be  obtained  on  a line 
printer  only. 

5.1  OPERATING  SYSTEM 

The  program  has  been  developed  on  a UNIVAC  1106  under  EXEC-8  level  27.  However, 
it  is  also  checked  out  on  the  NASA  Langley  CDC  6600  under  KR0N0S  with  a FTN 
compi ler. 

5.2  RESOURCE  ESTIMATES 

The  central  processor  time  required  to  process  a job  depends  on  three  major 
factors: 

(1)  number  of  noise  source  subroutines  used  to  describe  aircraft  system 

(2)  output  option  (NOPTG)  selected 

(3)  number  of  points  on  flight  profile  for  NOPTG  ■ 3- 

The  most  computational  time  is  required  when  NOPTG  * 3 is  selected  since  it 
requires  data  for  17  observer  locations  for  each  point  on  the  flight  profile. 

The  noise  levels  for  the  baseline  aircraft,  of  each  type  of  high-lift  system, 
were  computed  using  NOPTG  ■ 3 with  16  points  on  each  flight  profile.  The  sub- 
routines called  for  each  system  were  those  suggested  in  Section  it. 1.3.  The 
following  table  shows  the  time  required  for  each  execution  and  output  cycle  of 
the  computations: 


Aircraft  Type 

CPU  Time-i 

Vectored  Thrust 

3-58 

Externally  Blown  Flap 

3.57 

Upper  Surface  Blowing 

3.43 

Internally  Blown  Flap 

4.23 

Augmentor  Wing 

4.55 

Hybrid 

5.05 
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6.  DIAGNOSTICS 


The  following  are  a list  of  the  error  messages  which  may  be  printed,  and  the 
program  which  prints  them: 

(1)  ALTITUDE  CANNOT  BE  LESS  THAN  4.0  FEET 

YOUR  VALUE  IS  NOW  XXXXX.XX  STOLPROG) 

occurs  when  ALT  is  less  than  4.0. 

(2)  NOPTG  CANNOT  PC  SET  EQUAL  XXXXX  (STOLPROG) 

occurs  when  NOPTG  is  other  than  1,  2,  or  3. 

(3)  STOD  CANNOT  BE  LESS  THAN  10.0  FEET 

YOUR  VALUE  IS  NOW  XX. XXX  (STOLPROG) 

INCREASE  YOUR  VALUE  OF  ALT  OR  SLDIST. 
occurs  when  STOD  Is  <10.0  ft. 

(4)  RELATIVE  VELOCITY  NOT  ACCEPTABLE  TO  SUBROUTINE  FWDSPD  (FWDSPD) 

occurs  when  VAC  > VEL. 

(5)  THIS  VALUE  OF  D X.XXXXXXXXXX  ± XX  !S  NOT  ACCEPTABLE  FOR  SUBROUTINE 

DOPLER  THEREFORE  NO  SHIFT  WAS  USED  (DOPLER) 

occurs  when  D is  > 2.244924  or  D < 0.44599* 

(6)  SPL  EXCEEDS  150  dB  (PNLREV) 

occurs  when  1 of  the  1/3  o.b.  SPL's  is  greater  than  150  dB;  the 
returned  value  of  PNL  will  be  0.0. 
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PRECEDING  PAOl^iJCOyNOT  FILMED 


A.  SAMPLE  CASES 


The  fallowing  page*  contain  sample  -input  and  output 
Ion.  the  thn.ee  program  option*  (MOTTO)  available  with 
thi 4 prediction  program. 


A-1 


OAT A FOR  NOPTQal  OPTION 


1 BASELINE  HYBRID  AIRCRAFT 


2 6 

1 4 

3 500. 

4,0 

90. 

4 . 1 

1 1 

1 1 

5 1?. 

8,6162 

0.6710 

6 5,5815 

0,0 

0.0 

7 ..  2 

8 1,3206 

8,54 

600. 

9 0.0456 

17,3086 

640, 

10  2304, 

6,72 

1.367 

11  214, 

1.255 

6.0999 

12  1,105 

. 1400, 

2.8974 

BASELINE  HYBRID  AIRCRAFT 


AIRCRAFT  VELOCITY 

r: 

HO.O 

KNOTS 

SIDELINE  DISTANCE 

• m 

500.0 

FEET 

AIRCRAFT  ALTITUDE 

— 

4.0 

FEET 

AZIMUTHAL  ANGLE 

90.0 

DEG. 

ELEVATION  ANGLE 

.0 

DEG. 

SOURCE  TO  OBSERVER  DISTANCE 

— 

500.0 

FEET 

AIRFRAME 

FAN  AND 

JET 

EXCESS 

HIGH  LIFT 

FREQUENCE 

AERODYNAMIC 

TURBINt 

FXHAUST 

ENGINE 

SYSTEM 

TOTAL 

<H?) 

(DB) 

<I)B) 

(DB) 

(DB) 

(DB) 

( DB) 

BO. 

49.2 

54.8 

60.8 

r 5.2 

73.  7 

•7.6 

63. 

58,2 

56.1 

61.8 

73.4 

75.1 

'7.5 

HO. 

61.5 

54.5 

61.6 

69,4 

75.6 

7b. 8 

100. 

66.2 

54.9 

62.2 

66,6 

77.1 

' 7.4 

12b. 

72.0 

55.4 

62,7 

63.8 

78,5 

79, b 

160. 

70.6 

55.  7 

b2.6 

60 . 4 

78,4 

79.  7 

200. 

6H.5 

56,4 

62.  7 

57.6 

78. b 

79.2 

2b0. 

65.9 

57.0 

62.5 

54.8 

7 7 . b 

78.1 

31b. 

62.5 

57.1 

61.5 

51.2 

75.  7 

7 r> » 2 

40n  • 

59.1 

57,6 

61.0 

48.2 

74.  7 

75.1 

bOO. 

55.1 

58.2 

60.4 

45.3 

73.4 

'3.8 

630. 

52.0 

59,9 

59,3 

42.1 

71  .8 

72.  A 

H00. 

4B.5 

61.2 

58.4 

39.0 

70.3 

71.0 

1000. 

44.3 

69.8 

5 A , 2 

36.0 

68.  7 

64,5 

1250. 

40.6 

54.0 

55.1 

32.1 

6‘'.2 

6 7.3 

1600. 

36,7 

58.6 

53.5 

28.6 

64.3 

t 5,6 

2000. 

32.1 

58.2 

51.8 

2 5.2 

62.4 

64.0 

2b00. 

28.7 

58.5 

44, M 

21  .6 

60.2 

62.  7 

31b0. 

24.3 

59.2 

47.5 

1 7, 6 

5 7.5 

61.  7 

400U  • 

18.2 

59.1 

44,4 

12.  7 

54,  A 

60.5 

5000. 

13.4 

58.3 

41.2 

7.8 

50,8 

69.1 

6300. 

5.6 

55.1 

35.3 

.3 

44.8 

-'6, 6 

H000. 

.0 

45.7 

23.3 

.0 

32.5 

45.9 

10000. 

.0 

48,6 

24.3 

.0 

3 ’ . 4 

48.  7 

OASRL 

7b. 8 

71,3 

73.0 

78, b 

8 7.5 

MM,  5 

9NL 

76.1 

83.3 

77,8 

70.1 

91,  b 

93  • 3 

4NLT 

76,7 

85.4 

80.0 

70.1 

43.8 

u5 , 4 

MAXIMUM  A tJU  NOISE  = 73,2  RNOH 


* TOTAL  SYSTEM  9NL  = 93.3  ‘-'NL'H  * 

* * 

* TOTAL  SYSTEM  ^NL  T = 95.4  'JNl)H  * 

***  + **+<:  + **:*.***  tc***  + 4t'*********’**t* 


DATA  FOR  N0PTQ*2  OPTION 


1 BASELINE  HYBRID  AIRCRAFT 
2.6  2.4 


3 500. 

4.0 

90. 

4 . . 1 

1.1 

1.  1 

5 12. 

8.6162 

0.6710 

6 5.5815 

6.6 

b.o 

7 2 

8 1.3206 

8.54 

600. 

9 0.0456 

17.3086 

640. 

10  2304. 

6.72 

1.367 

11  214. 

1.255 

6,0999 

12  1.105 

. 1400. 

2.8974 

BASELINE  HYBKID  AIHCKAFT 

AIKCKAFT  VELOCITY  = 
SIDELINE  DISTANCE  = 
AIKCKAFT  ALTITUDE  = 
ELEVATION  ANGLE  = 


80.0  KNOTS 
bOO.O  FEET 
4.0  FEET 
.0  DEG. 


i 


r 


! 


y 


K- 

& 

't 

C 


i' 


4 


AZIMUTHAL 

ANGLE 

(DEG) 


SOURCE  TO 

OBSERVER  TOTAL 

DISTANCE  FNL 

(FT)  C-MMOB) 


TOTAL 

RNLT 

(FNDH) 


10.0 

20.0 

30.0 

40.0 
bO.O 

60.0 

70.0 

80.0 
90.0 

10U.U 

110.0 

120.0 

130.0 
140. U 
lbO.O 

160.0 
170.0 


2879.4 

67.6 

67.6 

1461.9 

78.8 

78.8 

1000.0 

86.2 

86.2 

7 7 7.9 

89.4 

89.4 

6b2.7 

91.2 

91.2 

b77.4 

92.3 

92.3 

b32.1 

92.8 

92.8 

bO  7*7 

93.2 

94.8 

bOO.O 

93.3 

9b. 4 

b07. 7 

93.6 

9b.  3 

b32.1 

93.7 

93.  7 

b7/.4 

92.  7 

92.  7 

6b2.  7 

90,4 

90.4 

7/7.9 

87.2 

87.2 

1000.0 

82.8 

82.8 

1461.9 

7b. b 

7b. b 

2679.4 

64.2 

66.1 

DOVKS  000021  FFOF  000000  FRUF  0000n0  ERMD  O99"0it 
TASK?  UNITS=2  CRUSH  KEF=41 


Wns=457/H 


Ct)RE=?l 


i 


OATA  FOR  N0PT0S3  OPTION 


1 BASELINE  HYBRID  AIRCRAFT 


2 

6 

3 4 

3 

500. 

4.0 

90. 

4 

10  50 

•0  2000 

• 0 

5 

1 

1 1 

1 1 

6 

12. 

8.6162 

0.6710 

7 

5.5815 

0.0 

0.0 

6 

2 

9 

1.3206 

8.54 

600. 

10 

0.0456 

17.3066 

640. 

11 

2304. 

6,72 

1.367 

12 

214. 

1.255 

6.0999 

13 

1.105 

1400. 

2,8974 

DISTANCE  SOURCE  TO 

ALONG  ELEVATION  A71MUTHAL  OBSERVER  MAXIMUM  MAXIMUM 

ALTITUDE  FLIfaHT  UA TH  ANGLE  ANGLE  DISTANCE  RNL  PNLT 

(KT)  (FT)  (OEG)  (DEG)  (FT)  (RNDB)  (RNUB) 


B.  COMPUTER  PROGRAM  LISTINGS 


The.  fallowing  page*  coyu. ain  the  program  tilting*  far  all 
the  prog/an  :i  developed  and/ on  a led  In  tkii  prediction 
procedure  far  V/STOL  aircraft  nolle. 


STOLPROG 


1 , DIMENSION  SPLL(6,24) ,SPLF(2,24) ,SPLAR0<24) ,SPLLFT<24) ,SPLFAN(2  O 

2 2 SPLT ( 24 ) , PNLTOT ( 17  > , PNLTC ( 17 ) » PNLMAX ( 50 ) , PNLTMX { 50 ) , ALTUDE { 50 ) , 

3 3 AZMAX ( 50) ,DISTMX 1 50 ) , XDIST( 50 ) ,ELV ( 50 ) , AZIMU ( 17 ) ,DIST ( 17) 

4 4 ,TITLE(10) ,NK{12) ,SPLJET{24) ,SPLEXS(24) ,GRSPL(24) ,EGSPL{24) 

5 C* 

6 COMMON  BLOCK  ******** 

7 C* 

8 COMMON  NOPTS,NOPTJ,STOD,ALT»AZMANG,ELVANG, 

9 2 VAC  »DPLUG,DEQUIV, VEQUIV,FLAP1 ,FLAP2,FLAP3,FLPAG1»FLPAG2, 

10  3 FLPAG3 , TTEQ , HNOZ , WNOZ , V JWNOZ  , HWNOZ  , WWNOZ , ANGNOZ  , ANG WNZ , NRED , 

11  4 NR1, NR 2 . NR3, HSLOT » E JL , E JANG , WFF , PRF , DF , TF , TREATF , TREATA »PRT, 

12  5 DTURB , BLADES  .•  TRPM , PCTP  , SA  , AR , TH I CK , NOPTA  » BC , SHP , DPR  I M , DANIN , 

13  6 DANOUT , XI , Y1 , VTIPT , V JPR IM, VJSEC , TTPRIM , TTSEC , XCN, TTWNOZ, HD 

14  7 ,ALPHA1,TREATT 

15  COMMON  /ATMO/F { 24 ) , ALPHA ( 24 ) 

16  C*  • 

17  C*****  DATA  STATEMENTS  AND  VALUE  INITIALIZATION  ***** 

18  C* 

19  DATA  F/50.,63.,30.,  100. , 125. , 160, ,203 . ,250. , 315. , 400, , 500 . , 

20  2 630. , 80 0., 1000, >1250. >1600. , 2003, , 2500. , 3150. » 4000, , 5000. , 

21  3 6300. >8000, >10000,/ 

22  C*****  ATMOSPHERIC  ABSORPTION  IS  FOR  77  DEG.F.  AND  70  % RtH,  ***** 

23  DATA  ALPHA/0, 09, 3, 11, 0.14, 0,17, 0.22, 0.28, 0.35, 0.44, 0,55, 0.70, 

24  2 0.83, 1,11,1, 41 ,1.77 ,2* 23, 2, 88, 3. 63, 4. 59, 5. 87 ,7. 61, 8. 56 ,11. 08, 

25  3 15. 08*20,34/ 

26  NALT=1 

27  NANGS1 

28  XCN31.0 

29  DELDBL=0.0 

30  DELU3J=0.0 

31  DELL=0.0 

32  DO  20  1=1,24 

33  DO  10  J=1 ,6 

34  10  SPLL( J, 1)30,0 

35  20  CONTINUE 

36  DO  40  1=1,24 

37  DO  30  J=l,2 

38  30  SPLF ( J, I ) =0  « 0 

39  SPLJET ( I ) =0 , 0 

40  SPLEXS ( I ) =0. 0 

41  SPLARO ( I ) =0 » 0 

42  SPLF AN ( I ) =0 , 0 

43  SPLLFT { I ) =0 » 0 

44  40  CONTINUE 

45  PNLAPU=0 • 0 

46  C* 

47  C*****  READ  BASIC  FLIGHT  PATH  DATA  ***** 

48  C* 

49  READ(5,505)  TITLE 

50  READ (5,501)  NOPTS,NOPTG,NENG 

51  IF ( NOPTG.LT . 1 .OR.NOPTG.GT , 3 ) GO  TO  230 

52  READ ( 5,502 ) SLDIST , ALT , AZMANG, VAC,FLTANG 

53  IF (N0PTG.EQ.3)  READ(5,503)  NALT 'ALT INC, STD I ST 

54  VAC=VA '*1.69*C0S(FLTANG/57, 2957795) 
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55  C* 

56  C***k*  READ  KEYS  FOR  SUBROUTINE  CALLS  ***** 

57  C* 

53  READ(5»50l)  (NK ( I ) , 1=1,12) 

57  C* 

60  C* * ***  READ  INPUT  DATA  FOR  PREDICTION  SUBROUTINES  ***** 

61  C* 

62  C****k  READ  FLAP  GEOMETRY  AND  NOZZLE  LOCATION  ***** 

63  READ(5,502)  ALPHA1,X1»Y1 

64  READ (5,502)  FLAP1 , r LAP2 , FLAPS , FLPAG1 , FLPAG2 , FLPAG3 

65  C*****  READ  ENGINE  NOZZLE  DATA  ***** 

65  IF ( NK ( 4) »NE. 1 ) GO  TO  44 

67  READ (5, 501)  NOPTJ 

63  IF(N0PTJ.EQ.2)  GO  TO  42 

69  READ (5*502)  DPLUG , DPR IM , V JPRIM , TTPR IM , ANGNOZ 

70  IF (NOPTJ.EQ.3)  READ(5,502)  DANIN , DANOUT , V JSEC , TTSEC 

71  GO  TO  44 

72  42  READ (5*502)  HNOZ  , WNOZ  » V JPR I M » TTPR I M * ANGNOZ 

73  44  CONTINUE 

74  C *****  READ  WING  NOZZLE  DATA  ***** 

75  IF (NK(6) «EQ«1)  READ (5, 502)  HWNOZ,WWNOZ, VJWNOZ,EJL,EJANG 

76  IF (NK(7) «EQ.l)  READ(5,502)  HWNOZ, WWNOZ,VJWNOZ»ANGWNZ,TTWNOZ 

77  C**  * **  READ  DATA  FOR  OPTIONAL  SOURCES  ***** 

78  IF(NK { 1 ) «EQ« 1 ) REA0(5,502)  SA,AR, THICK 

79  IF (NK(2) «EQ.l)  READ(5>502)  WFF,PRF,DF»TF,TREATF , TREATA 

80  IF (NK{3) .EQ.l)  READ(5»502)  PRT, VTIPT , DTURB, BLADES » TRPM,PCTP, TRE ATT 

81  IF ( NK ( 12) .NE. 1 ) GO  TO  46 

32  READ (5,503)  NOPTA,XX 

33  IF (NCPTA.EQ. 1)  BC=XX 

84  IF (N0PTA.EQ.2)  SHP=XX 

85  46  CONTINUE 

86  C**  * * k * READ  INPUT  FOR  NOISE  REDUCTION  OPTIONS  ***“« 

87  READ (5, 501)  NRED 

88  IF (NRED.NE.l)  GO  TO  48 

89  READ <5* 501)  NR1 , NR2,NR3 

90  IF (NR3.EQ. 1)  READ(5,502)  HSLOT 

91  48  CONTINUE 

92  C* 

93  C*  * * * * CALCULATE  GEOMETRIC  VALUES  PLUS  EXTRA  GROUND  ATTENUATION, 

94  C****k  GROUND  REFLECTION  EFFECTS, AND  FORWARD  SPEED  EFFECT  ***** 

95  C* 

96  ENGSFLOAT(MENG) 

97  ENJC=1O,0*ALOG1O(ENG) 

98  IF ( NOPTG.NE, 1 ) NANG=17 

9T  DO  210  J2=1»NALT 

100  IF(ALT.LT.u.O)  GO  TO  270 

101  IF ( NOPTG.NE  * 1 ) AZMANG=10,0 

102  XR=SQRT(SLDIST**2+( ALT-4,0 )**2) 

103  IF(XR.LT.O.Ol)  GO  TO  50 

104  ELVANG=ASIN( (ALT-4. 0)/XR)*57, 2957795 

105  GO  TO  60 

106  50  ELVANG=90,0 

107  60  CONTINUE 

103  ENJCOR=ENJC-?.0*COS(ELVANG/57. 2957795) 
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109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 
127 
123 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 


DO  160  J1=1,NANG 
ST0D=XR/SIN(AZMANG/57 *2957795) 

IF (STOD.LT. 10 .0 ) GO  TO  285 
CALL  EGA(EGSPL) 

CALL  GRE(GRSPL) 

C* 

C*****  CALL  STATEMENTS  FOR  SUBROUTINES  ***** 
C* 


c* 


IF { NK ( 1 ) «EQ*1)  CALL 
IF (NK(2) *EQ«1)  CALL 
IF  C NK ( 3 ) *EQ*1)  CALL 
IF (NK(4) «EQ«1)  CALL 
IF(NK(5).EQ,1)  CALL 
IF(NK(6)*EQ.l)  CALL 
IF {NK (7) *EQ«1)  CALL 
IF (NK (8) *EQ*1)  CALL 
IF(NK(9) .EQ.l)  CALL 
IF(NK(10)  .EQ.l)  CALI- 


70 


IF  C NK (11) *EQ*1)  CALL 
IF (NK < 12) .EQ.l)  CALL 
IF (VAC.LE.O.Q)  GO  TO 
CALL  FWDSPD(DELDBL) 
NOPTF=NOPTS 
NOPTS=l 

CALL  FWDSPD(DELDBJ) 
NOPTS=NOPTF 


AERO(SPLARO) 
FAN(SPLF) 
TURBNE(SPLF) 
JET(SPLJET) 
EXCESS (SPLEXS) 
AUGWNG(SPLL) 
WNGUET { SPLL) 
IMPING ( SPLL) 
WALJET ( SPLL) 
WAKE (SPLL) 
TRAIL (SPLL) 
APU(PNLAPU) 

70 


CONTINUE 


IF (N0PTS.NE.2) 
NRED=1 


GO  TO  75 


NR1=1 

75  IF (NRED.NE.l)  GO  TO  80 
CALL  REDUCE (DELL) 

80  CONTINUE 


0**+**  CALCULATE  TOTAL  OF  HIGH  LIFT  NOISE  ***** 

C* 

SUM2=0,0 
DO  HO  1=1,24 
SUM1=0,0 
DO  100  U=l,6 

IF (NK ( J+5) ,NE.l ) GO  TO  95 
IF ( SPLL (J,I) .LE.0.1)  GO  TO  95 

SPLL ( J, I ) =SPLL ( J, I ) +ENJCOR+GRSPL ( I ) -EG5PL ( I ) +DELDBL+DELL 
95  IF { SPLL (J,I) .LT.0.0)  SPLL ( J, I ) =0 .0 

IF ( SPLL (J»I) .GT.0.0)  SUM1=SUM1+10» 0* * ( SPLL ( J, I ) /10. 0 ) 

100  CONTINUE 

IF { SUM1.GT.0 . 0 ) SPLLFT ( I ) =10 . 0*ALOG10 ( SUM1 ) 

IF (SUM1,GT .0.0)  SUM2=SUM2+SUM1 
110  CONTINUE 

IF ( SUM2 .GT.0.0)  OASPLL=l 0 . 0*ALOG10 ( SUM2 ) 

CALL  PNLREV ' SPLLFT , PN , 2 ) 

PNLLFT=PN 


CALL  TONE(SPLLFT ,PN»PNLC) 
PNLFTT=PNLC 


A-11 


STOLPROG 


163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 
20  0 
201 
202 

203 

204 

205 

206 

207 

208 
209 
.210 

211 

212 

213 

214 

215 

216 


C* 

C*****  CALCULATE  TOTAL  OF  FAN  AND  TURBINE  NOISE  ***** 

C* 

SUM2=0.0 
DO  130  1=1*24 
SUM1=0.0 
DO  120  J=l*2 

IF(NK( J+I) «NE„1)  GO  TO  115 

SPLF  < J * I ) =SPLF ( J*  I } +EN JCOR-EGSPL  < I ) +GRSPL { I ) 

115  IF { SPLF { J* I ) «LT„0«O)  SPLF  ( J*  I ) =0 . 0 

IF ( SPLF { J*  I ) .GT.0.0)  SUM1=SUM1+10.0**(SPLF{J*I)/10.0) 

120  CONTINUE 

IF { SUM1 . GT . 0 . 0 ) SPLFAN <15=10. 0*ALOG10 ( SUM! ) 

IF (SUM1.GT .0.0)  SUM2=SUM2+SUM1 
130  CONTINUE 

IF ( SUM2.GT. 0 . 0 ) OASPLF=10 . 0*ALOG10 ( SUM2) 

CALL  PNLREV (SPLFAN*PN* 2) 

PNLFAN=PN 

CALL.  TONE  ( SPLFAN  *PN*PNLC) 

PNLFNTSPMLC 

C* 

C*****  CALCULATE  OASPL  AND  PNL  FOR  AIRFRAME  NOISE  ***** 

C* 

IF(NK(l).NE.l)  GO  TO  141 

SUM1=0.0 

DO  140  1=1*24 

SPLARO ( I ) =SPLARO { I ) -EGSPL ( I ) +GRSPL { I > 

IF ( SPLARO ( I ) .LT.0.0)  SPLAR0{I)=0,0 

IF ( SPLARO ( I ) , GT . 0 . 0 ) SUM1=SUM1+10 . 0*  * ( SPLARO ( I ) /10 . 0 ) 

140  CONTINUE 

IF ( SUM1 ,GT«0.0)  0ASPLA=10 . 0*ALOG10 ( SUM1 ) 

CALL  PNLREV { SPLARO *PN* 2) 

PNLARO=PN 

CALL  TONE ( SPLARO *PN*PNLC) 

PNLART=PNLC 

141  CONTINUE 
C* 

C *****  CALCULATE  OASPL  AND  PNL  FOR  JET  AND  EXCESS  NOISE  ***** 
C* 

SUM1=0.0 

SUM2=0 • 0 

DO  145  1=1*24 

IF < NK (4) ,NE.l)  GO  TO  142 

SPL JET ( I ) =SPL JET ( I ) +EN JCOR-EGSPL ( I ) +GRSPL ( I ) +DELDBJ 

142  IF(NK(5).NE.l)  GO  TO  144 

SPLEXS ( I ) =SPLEXS ( I ) +EN JCOR-EGSPL ( I ) +GRSPL { I ) 

144  IF { SPL JET ( I ) »LT«0« 0 ) SPLJET{I)=0.0 
IF ( SPLEXS ( I ) «LT.O . 0)  SPLEXS ( I ) =0 .0 

IF { SPL JET ( I ) . GT , 0 . 0 ) SUM1=SUM1>10 . 0** ( SPL JET ( I ) /10 . 0 ) 

IF ( SPLEXS ( I ) .GT.O.O)  SUM2=SUM2+10« 0* M SPLEXS ( I ) /10 . 0 ) 

145  CONTINUE 

IF ( SUM1 % GT, 0 , 0 ) OASPL J=1 0 . 0+AL0G10 ( SUM1 ) 

IF ( SUM2.GT, 0 , 0 ) OASPLE=10 , 0*ALOG10 ( SUM2 ) 

CALL  PNLREV ( SPL JET » PN » 2 ) 
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217 

PNLJET=PN 

218 

CALL  TONE ( SPLJET  > PN » PNLC ) 

219 

PNLTJT=PNLC 

220 

CALL  PNLRE V { SPLEXS » PN  * 2 ) 

221 

PNLEXS=PN 

222 

CALL  TONE ( SPLEXS  * PN  t PNLC ) 

223 

PNLTEX=PNLC 

224  C* 

225  €♦♦♦** 

226  C* 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237  150 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249  152 

250 

251  154 

252 

253 

254 

255  160 

256 

257 

258 

259  C* 

260  C***** 


CALCULATE  TOTAL  NOISE  FROM  COMPONENTS  ***** 


SUM1=SUM1+10 . 0*+ ( SPLARO ( I ) /10 . 0 ) 
SUM1=SUM1+10 . 0** ( SPLFAN (I ) /10 . 0 ) 
SUM1=SUM1+10,0*+(SFLJET(I)/10,0) 
SUM1=SUM1+10 , 0** ( SPLEXS ( I > /10 . 0 ) 
SUMl=SUMl+10 . 0** ( SPLLFT ( I ) /10 . 0 ) 


SUM2=0.0 
DO  150  I=l#24 
SUM1=0.0 

IF ( SPLARO ( I ) « GT. 0 • 0 ) 

IF ( SPLFAN ( I ) « GT . 0 • 0 ) 

IF { SPLJET { I ) « GT • 0 . 0 ) 

IF ( SPLEXS ( I ) « GT. 0 . 0 ) 

IF ( SPLLFT ( I ) « GT. 0 • 0 ) 

SUM2SSUM2+SUM1 
IF ( SUM1 ,GT.O. 0 ) SPLT ( I ) =10. 0*ALOG10 ( SUM1 ) 

CONTINUE 

IF ( SUM2 . GT, 0 . 0 ) OASPLT=10 . 0*ALOG1 0 ( SUM2 ) 

CALL  PNLRE V ( SPLT  » PN » 2 ) 

PNLsPN 

CALL  TONE(SPLT>PN,PNLC) 

PNl.TsPNLC 

IF { PNLAPU . LE . 0 . 0 ) GO  TO  152 

SUMlslO . 0** ( PNL/10.0 ) +10 . 0** ( PNLAPU/10 . 0 ) 

SUM2=10 . 0**  ( PNLT/10 . 0 ) +10 . 0** ( PN^APU/10 w n ) 

PNLTOT ' J1 ) =10 . 0*AL0G1 0 ( SUM1 ) 

PNLTC ( J1 ) =1 0 , 0* ALOG1 0 ( SUM2 ) 

GO  TO  154 

PNLTOT (JI)SPNL 

PNLTC  { JDsPNLT 

CONTINUE 

DIST ( J1 ) =STOD 

AZIMU{ J1)=AZMANG 

AZMANGsAZMANG+10.0 

CONTINUE 

ELV(U2)=ELVANG 

ALTUDEJ J2)=ALT 

IF (N0PTG.NE.3)  GO  TO  230 

DETERMINE  MAXIMUM  NOISE  FOR  SIDELINE  POSITIONS  ***** 


TO  170 


261  C* 

262 

PNLM=0,0 

263 

DO  170  Jl=lfNANG 

264 

IF  ( PNLTC  (JD.LT.PNLM)  GO 

265 

PNLM=PNLTC( Jl) 

266 

NMAX=J1 

267  170 

CONTINUE 

268 

PNLMAX ( J2 ) =PNLTOT ( NMAX ) 

269 

PNLTMX ( J2 ) =PNLTC ( NMAX ) 

270 

AZMAX ( J2) =AZIMU(NMAX) 
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271 

272 

273 

274 

275 

276 

277 
273 
279 
230 
281 
282 

283 

284 

285 

286 
287 
283 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 


DISTMX(J2)=DIST(NMAX) 

C* 

C*****  CALCULATE  DISTANCE  ALU'  'G  THE  FLIGHT  PATH  ***** 

C* 

IF ( J2.GT.1)  GO  TO  180 
XDIST(1)=STDIST 
GO  TO  200 

180  IFIALTINC.LT. 0.0)  GO  TO  190 

XDIST( J2)=STDIST+' ( ALTUDE (U2) -ALTUDE ( 1) ) /TAN (FLTANG/57. 2957795) ) 
GO  TO  200 

190  XDIST(J2)=STDIST-( ( (ALTUDE ( 1) -4.0 ) /TAN( FLTANG/57 *2957795) ) -( ( 

2 ALTUDE ( J2 ) -4 • 0 ) /TAN ( FLTANG/57 .2957795 ) ) ) 

200  CONTINUE 

ALT=ALT +ALTINC 
210  CONTINUE 
C* 

C*****  DETERMINE  THE  MAXIMUM  NOISE  DURING  FLIGHT  PROFILE  ***** 

C* 

PNLM=0.0 

DO  220  J2=1»NALT 
IF ( PNLTMX ( J2 ) • LT . PNLM ) GO  TO  220 
PNLM=PNLTMX(J25 
NMAX302 
220  CONTINUE 

PMAX2PNLMAX ( NMAX ) 

PTMAX=PNLTMX(NMAX) 

ATMAX=ALTUDE(NMAX) 

ELMAX=EL V { NMAX ) 

AZMX=AZMAX(NMAX) 

DMAXSDISTMX(NMAX) 

XMAXsXDIST (NMAX) 

230  CONTINUE 

VAC=VAC/ ! 1 ,69*C0S ( FLTANG/57 .2957795) ) 

GO  TO  (235»240»250) »N0PTG 
c* 

C*****  WRITE  STATEMENTS  FOR  NOPTG  = 1 ***** 

C* 

235  WRITE(6»601)  TITLE  t VAC  * SLDIST » ALT  t AZIMU ( 1 ) » ELVANG  t STOD 
WRITE ( 6»  602 ) 

WRITE (6>603)  I ( F ( I ) » SPLARO ( I ) » SPLFANJ I ) * SPLJET ( I ) .SPLEXS ( I ) , 

2 SPLLFT(I) »SPLT(I) ) »I=1>24) 

WR I TE ( 6 f 604 ) OASPLA  t OASPLF  > OASPL J , OASPLE  t OASPLL  , OASPLT 
WRITE (6> 605)  PNLARO. PNLFAN?PNLJET> PNLEXS> PNLLFT »PNL 
WR I TE ( 6 1 606 ) PNLART t PNLFNT  t PNLTJT t PNLTEX t PNLFTT t PNLT 
WRITE (6» 607)  PNLAPU r PNLTOT { 1 ) »PNLTC(1) 

WRITE(6»608) 

GO  TO  260 


C* 

C*v***  WRITE  STATEMENTS  FOR  NOPTG  = 2 ***** 


C* 

240  WRITE ! 6»  609)  TI  TL,E  t VAC » SLDIST t ALT t ELVANG 
WRITE(6>610) 

WRITE (6»611)  ( ( AZIMU (J) »DIST( J) t PNLTOT (J) »FNLTC ( J) ) * Jsi.NANG) 
WRITE(6»608) 
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325  GO  TO  260 

326  C* 

327  C*****  WRITE  STATEMENTS  FOR  NOPTG  = 3 ***** 

328  C* 

329  250  WRITE(6>612)  TITLE#VAC»SLDIST 

330  WRITE(6»613) 

331  WRITE(6*614)  ( (ALTUDE(U) »XDIST(U) >ELV(U) »AZMAX( J) ,DISTMX( J) , 

332  2 PNLMAX(J) >PNLTMX( J) ) >J=1»NALT) 

333  WRITE(6>615) 

334  WRITE(6»613) 

335  WRITE(6»614)  ATMAX » XMAX t ELMAX t AZMX t DMAX » PMAX » PTMAX 

336  WRITE(6*608) 

337  260  CONTINUE 

338  GO  TO  290 

339  C* 

340  C*****  ERROR  MESSAGES  ***** 

341  C* 

342  270  WRITE ( 6»616)  ALT 

343  GO  TO  290 

344  280  WRITE(6»617)  NOPTG 

345  GO  TO  290 

346  285  WRITE <6>618)  STOD 

347  290  CONTINUE 

348  C* 

349  C***+*  FORMAT  STATEMENTS  FOR  INPUT  ***** 

350  C* 

351  501  FORMAT (1215) 

352  502  FORMAT (8F1Q.1) 

353  503  FORMAT (1I5*3F10«1) 

354  505  FORMAT (10A6) 

355  C* 

356  C*****  FORMAT  STATEMENTS  FOR  OUTPUT  ***** 

357  C* 

358  601  FORMAT ( 1H1 1 / 1 15X> 10A6> // 1 35X t 1 AIRCRAFT  VELOCITY  = *,F5.1* 

359  1 * KNOTS’ t/t 

360  2 35X» ’SIDELINE  DISTANCE  a *»F6,1»’  FEET’ »/»35Xr ’AIRCRAFT  ALTIT* 

361  3 »’UDE  = ’ >F7«1 » ’ FEET’ »/»37X» ’AZIMUTHAL  ANGLE  = ’»F5.1>»  DEG, 1 

362  4 /»37X» ’ELEVATION  ANGLE  = ’»F5,1»*  DEG.',/,25X* 

363  5 ’SOURCE  TO  OBSERVER  DISTANCE  = *>F7,1»’  FEET’) 

364  602  FORMAT (//>23X» ’AIRFRAME' »5X> ’FAN  AND’ r 5X> * JET’ , 5X< • EXCESS’ » 3X» 

365  2 ’HIGH  LIFT’ t/tlOXt ’FREQUENCY' »3X> ’AERODYNAMIC*  >3X» ’TURBINE*  t 

366  3 3X» ’EXHAUST’ »3X* ’ENGINE’ »4X» ’SYSTEM’ ,5X, ’TOTAL’ f/t 13X» ’ (HZ) ’ » 

367  4 9X»’ (DB) • >8X>  * (DB) * #6Xr ’ (DB) ’ p5X» ’ (DB) ’ r6X, * { DB ) ’ ,7X> ’ (DB) » »/) 

368  603  FORMAT(12X>F6.0»7XfF5,lf7X,F5.1>5X>F5.1>4XfF5,l,5XfF5.1r6X>F5.1) 

369  604  FORMAT (//»12X»’0ASPL* » 0X»F5, 1 »7X»F5,1 » 5X»F5. 1 » 4Xf F5,i » 5X»F5. 1 »6Xi 

370  2 F5« 1 ) 

371  605  FORMAT (13X»’PNL»»9X»F5,l»7X»F5,l»5X»F5,l#4X»F5.1»5X»F5.1»6X»F5,i: 

372  606  FORMAT ( 13X» ’ PNLT*  »8X>F5« 1»7X»F5« 1#5X»F5« 1»4X»F5* 1»5X»F5, 1 »6X» 

373  2 F5« 1 ) 

374  607  F0RMAT(///»34X» ’MAXIMUM  APU  NOISE  = »»F5,1»*  PNDB*  »////> 32Xr 

375  2 34<’*’)>/>32X#’*  TOTAL  SYSTEM  PNL  = »>F5.1>»  PNDB  *’>/>32X> 

376  3 * * ' * 32X  »’*’»/»  32X  t ’ * TOTAL  SYSTEM  PNLT  = ’»F5.1,»  PNDB 

377  4 32X#34( ’*' ) ) 

378  608  FORMAT (1H1) 
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609  FORMAT ( 1H1 » / » 10X  * 10A6 ♦ //» 19X t ’ AIRCRAFT  VELOCITY  = ’»F5.1# 

1 * KNOTS’ 19X# 

2 ’SIDELINE  DISTANCE  = ’>F6.1>*  FEET*  »/»19X» ’AIRCRAFT  ALTITUDE  = ’» 

3 F7.1»’  FEET’ »/>21X# ’ELEVATION  ANGLE  = ’»F5.1>*  DEG.’) 

610  F0RMAT(//>26X» ’SOURCE  TO*  >/»10X> ’AZIMUTHAL’ »8X* ’OBSERVER*  »7X» 

2 • TOTAL •»  7X » ’ TOTAL ’ t / 1 12X  t ♦ ANGLE  * > 1 OX  t ’ D I STANCE’ * 8X  t ’ PNL ’ , 8X » 

3 ' PNLT’ */, 12X> ♦ (DEG) * #12X»  * (ET) » #8X» ♦ (PNDB) ♦ ,6X> ’ (PNDB) ’ ,/) 

611  FORMAT ( 12Xr F5« l»10X»F7*l#7Xf F5.1»7X»F5«1 ) 

612  FORMAT ( 1H1 * /» 2QX > 10A6 » // » 39X f ’ AIRCRAFT  VELOCITY  = »»F5.1» 

1 ’ KNOTS’ »/»39X» 

2 ’SIDELINE  DISTANCE  - *#F6.1r’  FEET*) 

613  F0RMAT(//>23X» ’DISTANCE*  »28X» ’SOURCE  TO’ »/»24X» ’ALONG’ »6X» 

2 ’ELEVATION*  #3X» ’AZIMUTHAL’ »4X» ’OBSERVER’ »3X» ’MAXIMUM’ , 3X» 

3 ’MAXIMUM’ #/» 10X# ’ALTITUDE’ »3X» ’FLIGHT  PATH  ’ » 5X » * ANGLE  * » 7X » 

4 ’ANGLE’ ? 6Xi ’DISTANCE*  #5X» ’PNL»  »7X* ’PNLT’ »/»12X» ’ (FT) ’ r9X»  * (FT) ’ t 

5 8X# ’ (DEG) ’ ,7 Xt ' (DEG) ’ ,8X> ’ (FT) ’ » 6X> ’ (PNDB) * ,4X» ’ (PNDB) » ,/) 

614  FORMAT (10X#F7.1»5X»F8.1»7X»F5«l»7X»F5«if6X>F7.i>5X»F5.1»5X»F5,l) 

615  F0RMAT(/////#37X*  ’♦****  MAXIMUM  NOISE  **♦**’) 

616  FORMAT ( 1H1 >/# 10X> ’ALTITUDE  CANNOT  BE  LESS  THAN  4.0  FEET’,/, 

2 lOXf’YOUR  VALUE  IS  NOW  ’ >F8.2>/» 1H1 j 

617  FORMAT { lHl»/» 10X# ’ NOPTG  CANNOT  BE  SET  EQUAL  »#1I5>/1H1) 

618  FORMAT (lHl^/flOX^’STOD  CANNOT  BE  LESS  THAN  10.0’ , 

2 />10X, ’YOUR  VALUE  IS  NOW  * >F6.3,/, 10X, 

3 ’INCREASE  YOUR  VALUE  OF  ALT  OR  SLDISTM 
STOP 

END 
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1 SUBROUTINE  AERO( S^LARO) 

2 DIMENSION  RAT 10 ( 20 ) » DIFS (20 ) »SBLARO( 24) 

3 COMMON  NOHTS*  NOPTJf  F (24)  * AL^HA  ( 24)  *STOD*  ALT  t AZMANG*  ELVANG* 

4 2 VAC»DMLUG»UEQUI  VEOUIV*  FLAP1 1 FL  A92 » FLA^3 1 FLPAG1  * FL*JAG2» 

b 3 FLPAG3*  TTEQ*  HNOZ*  WNOZ*  V JWNOZ  t HWNOZ*  WWNOZ#  ANGNOZ*  ANGWNZfNRED* 

b 4 NR1 1 NR2 * NR3 1 HSLOT » E JLi  E JANG  t WFK » PRF  » DF  t TF  * TRE  ATF  t TREAT  A » RRT  t 

7 b DTURH*  HLADES*  TRPM»  PCTH*  SA*  AR. THICK*  NOuTA»  HC * SHPf  DPR  I M*  DANIN, 

tt  6 DANOUT  # XI » Y1 » VT 1°T»  VJPR IM.  V JSEC  . TTPRIM. TTSEC  . XCN.  TTWNOZ*  HD 

9 7 . ALPHA1.TREATT 

10  DATA  RATIO/0. 001963125 *0.00390626. 0.0078125*0. 01562b* 0.0312b. 

11  2 0.062b *0.126* 0.25 *0.5 *1.0 *2, 0*4. 0*8. 0*16, 0*32. 0*64. 0*128.0* 

12  3 266,0*612.0*1024.0/ 

13  DATA  D IFF/201. *179. *157. *135. *113. *91. *b9. *47. *25. *10. *16.6*26.6* 

14  2 36. 5*46.6,56.6*66. 6*76, 5*86, 6*96.5*106. 6/ 

lb  XMN=VAC/11 lb.0 

16  FMAX=1, 3*VAC/( THICK* <l.-XMN*COS(A/MANG/57. 2967^96) ) ) 

17  OASPL=10.*ALOG10< ( < SIN( AZMANG/57.2967 ^95) ) **2*VAC**5*S A ) / 

18  2 ( AR**2*(1.-XMN)**4) )+7.0 

19  UO  10  1=1*24 

20  FRAT=F(  D/FMAX 

21  SPtC=GIRC < FRAT* RATIO* UIFK* 20*1 ) 

22  S*JLARO(  I)=OASHL-SH£C-20.*ALOG10<STOD)-(STOD/1000.  )*ALPHA<  T) 

23  IF(SHLAROU)  .LT.0.0)  SPLARO t I ) =0 . 0 

24  10  CONTINUE 

26  CALL  DULLER  (SHI.ARO) 

26  KtTUHN 

27  END 
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1 SUBROUTINE  FAN(SPLF) 

2 DIMENSION  SPLF ( 2>  24) > SPLSH( 24 ) > SPLFOR ( 24 ) > SPLAFT ( 24 ) > 

3 2 XANGLE (19) > XDIRA ( 19 ) > XDXRF ( 19 ) > XSN(  9 ) > XSPtC ( 9 ) 

4 COMMON  NOMTSf N0PTJ>F<24) » ALPHA (24) > STOD*  ALT > AZMANG>  ELVANGt 

b 2 VAC > D^H  IG > DEQU I V > VEND  I V > FLA^l > PLAP2 > FLAK5  * FLF>AG1 > FLP AG2  > 

6 3 FLP AG3 > TT£(j > HNOZ  > WNOZ > V JWNOZ > HWNOZ  > W’/JNOZ  > ANGNOZ f ANGWNZ  > NRED  * 

7 4 NR1 > NR2  > NR  3 > HSLOT > E JL>  E JANG > WFF>  DRF  > DF  * TF  > TREATF  > TREAT  A > RRT > 

8 b DTURB>  BLADES > TRPM>  PCTP > S A > AR > THICK > NOPTA > BC  > SHR>l)PR  1 Mr  U ANIN> 

9 6 UANOUT > XI  > Y1  > VTI^T > VJRRIM>  V JSEC>  TTprim> TTSEC > XCN,  T1 WNOZ>  HD 

10  7 fALRHAlf TREATY 

11  DATA  X ANGLE/0. > 10.  >20. >30. >40. >B0. >60. > 70 . > 8" • > DO • > 104, > 1 \ 0, > 

12  2 120. >130. >140. >150. >160. >170. >180./ 

13  DATA  XDIRA/-16. >-15, >~14, >-13. >-12. > -11 . » -10 . >-D. > -7. 4> -4.b> -2 . 0 > 

14  2 l.b>2.4>2.0>-1.4>-2.3>-4.0>-5.2>-7.0/ 

lb  DATA  XDIRP/-2.6>-1.8>1.0>1.4>0.8>1.0>0.2>-0.6>-2.b>-4.b>-b.7> 

lb  2 — 9.4>—10. >—11 . >-12. >—13. >-14, >— lb. >—16,/ 

17  DATA  XSN/3.b>  b. >6, >7, »D, >11. >14, >17, >20./ 

IB  DATA  XSPEC/-13.7>-12.b>-10.b>-7.b>-9.D>-io.S>-D.B>-lt.D>-i2.)'/ 

ID  DO  2 1=1 > 24 

20  2 SRLSH< I) =0,0 

21  VP=109.b9b*SQRT(TF*(l,0-1.0/(PRF**9.28b) ) ) 

22  OASPL=10. O+ALOGIO < WFP ) +20.0+4LOG10 ( PRF**0.28b-l • 0 ) +1 2 7. 0 

23  DIRF=GIRC  ( AZMANG>  XANGLE>  XDIRF  > 1D>  1 ) 

24  DIRA=GIRC( AZMANG>  XANGLE>  XDIRA>  ID,  1 ) 

Pb  IF { NOPTS.NE. 3. AND. NOPTS, NE.6 ) 00  TO  S 

2b  XLP=X1+FLAR1*C0S  ( FLPAG1/57. 295 779b ) +F~LAu,2*COS  ( PL‘JAG2/b7  . PR.b  ] '9b) 

27  2 +FLAP3*COS(FL‘JAG3/b7.29b779b) 

28  HP=Yl+FLA^l*SlN(FLRA61/b7.2Db7/Db)+FLAR2*SIN(FL'JAH2/b7.2Db/  /«-'b) 

2y  2 +FLAP3*SIN(FLPAG3/b7,2Db7^Db) 

30  EpS=1H0.0-AZMAN6-( ( AT AN ( HR/XL^) ) *57.2957  /Qb) 

31  RAD=SNRT ( XLR**2+HP**2 ) 

32  HH=RAD*SIN(tRS/b7.2Db77Db) 

33  SD=SQRT(RAU**2-BH**2) 

34  OD=STOD-SD 

3b  IF(HH.LE.O.O)  GO  TO  b 

3b  CALL  SHIELD ( SPLSPI>  SD>  BH>  OD>  F > EL VANG) 

37  b CONTINUE 

38  DO  10  1=1 >24 

39  DlS  rOF=20 • 0*  ALOG10  ( STOD)  -M  STOD/IOOU , 0 ) *ALUHA  ( 1) 

40  SN=F ( 1 ) *DF/VF 

41  IF ( SN,L£»3,b)  SREC=11.0*ALOG10(SN)-lD.bb 

42  IF  (SN.GT.  3. b.  AND.SN.LT,  20.0)  SRfcC=GIWC  ( SN>  VSN>  XS,JEC>9,  \ ) 

43  IF  (SN.GE.20.0)  SF*tC=-7,6*ALOG10(SN)-2.3 

44  SRLFOR( I ) =OASPL-DIRF-DISTOP+S°EC-TREATF 

4b  Swl.AF1  ( I )=OASPL-DIRA-DISTOF  + SPF.C-TREATA 

46  IF(NOF»rS.EQ.3.0R.NORTS.tO,b)  FPL  AFT  ( I)=SULAF'T  ( I )-S'JLSH(  I ) 

47  IF  (SPLKORf  I)  .LT.0.0)  SPLFOR < I ) =0, 0 

48  IF <S«LAF f( 1 ) .LT.0.0)  SPLAFT ( I ) =0 . 0 

49  10  CONTINUE 

bO  CALL  DOPLER(SF»LF'OR) 

bl  CALL  DORLER< SPLAFT? 

b2  SUM=0.0 

b3  DO  20  1 = 1 » 24 

54  FOR=0 . 0 
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5b  AFT=O.U 

b6  I K ( SPLK OH ( X ) « <3T » (J  • 0 ) FOK=10.0**(S*LFOR( I ) /10.0 > 

57  Ih(SPLAKT(  X)  .GT.0.0)  AFT=10 , 0**  < S»»LAKT(  I ) /10. 0 ) 

58  SUM=FOK+AKT 

59  IF ( SUM. (ST *0*0)  SHLK  ( 1,  I)  =10.0*AL0610  (SUM) 

60  20  CONTINUE 

61  KETUKN 

b2  ENU 
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* SUbKOUT  INE , TURBNE  ( SRLF ) 

2 IJ I MENS  ION  SF>LF<2*24)*XANGL£<19)*XUIR(19)*XFR1(10)*XFR2<10>* 

3 2 XS^ECl ( 10 ) * SRL( 24) * SRLSH( 24 ) * XSREC2  (6*10) * XWCT ( 6 ) 

4 COMMON  NO^TS*  NOF>TJ*  F ( 24 ) * ALPHA ( 24 ) * STOO* ALT* AZMANG* ELVANG* 

5 2 \/AC*  URLUG*  DEQUI V*  VEQIJ1V*  FLAP1 * FLAR2 * FLAP5*  FLF’AGl  * FLRAG2* 

6 3 FLRAG3*  TTEQ*  HNOZ*  WNOZ*  VJWNOZ*  HWNOZ*  WWNOZ* ANGNOZ*  ANGWNZ*  NREU* 

7 4 NR1  p NK2 * NR  3 » HSLOT  * E JL  * E J ANG  * WFF*  PRF  * OF  , TF , TREATF  * TWt  AT  A » RRT » 

8 8 l)Tl  )Rb*  HLAL5ES*  TRpM*  l3CTP*  S A*  AR*  THICK  * NOpTA * 8C » SHR*  D'JR1M,  DANIN* 

9 6 UANOUT*  XI*  Y1*VTIRT»VJPR1M*VJSEC*TTPRIM*TTSEC*XCN*TTWN0/*HD 

10  7 * ALpHAl p TREAT! 

11  DATA  XANGLt/O.  ,10.  *20.  *30.  *40.  *60.  *60.  *70.  >80.  *90.  *10'.'.  f 110,* 

12  2 120. *130. *140. *lbO. >160. *170. *180./ 

13  DATA  XOIR/14. 6* 13. 5* 12. 2 * 11 . 5* 1 0.2* 9, 2* 8.2* 7.2* 6. 2 * 5.2  * 3, 5* 1 . ft 

14  2 0. 0*1. 0*3. 2*4. b*b. 7*6, 2*6. 8/ 

lb  DATA  XFR1/0. 1*0. 2*0. 3*0. 4*0. b*0. 6*0. 7*0. 8*0. 9*1.0/ 

16  DATA  XFR2/1. 1*1. 2*1. 3*1. 4*1. b*l. 6*1. 7*1. 8*1, 9*2.0/ 

17  DATA  XSpECl/2b.0  * 18. 0*15. 5 *13. 5 *12.5, 12.0*11.0*10.6*10, 0*10.''/ 

18  DATA  XPCT/50 . *60. > 70, ,80. *90, * 100,/ 

19  DATA  ( ( XSptC2 < NZ* NX ) *NX=1* 10)  * NZ=1  * 6 ) /10  . b*  1 1 .0*11.6*12.0*12.6* 

20  2 13, 0*13.2*13.7*14. 0*14. 6*10.7*11.4* 12, 2*13.2*14, 1*16. 0*18, 36* 

21  3 16.86* 16.2* 16,7* 10.9, 11 .8*12.9*14.4*15.7*1 7.0*17.62* 18.02*16.4* 

22  4 18. 9* 11. 1*12.2 *13. 6, 15. 6, 17. 3, 19. 0*19. 68 *20. 18*20. 6* 21.1 , 1J .3, 

23  5 12,6* 14. 3 *16.8, 18.9*2 1.0*21. 84,22. 24* 22.8* 23. A, 11 .6*13.0*18.0* 

24  6 18.0*20.6*23.0*24.0*24.5*25.0*26.8/ 

25  DO  2 1=1*24 

26  2 S^LSH ( 11=0.0 

27  ARtA=3. 141892654*  (DTt)RB**2)/4.0 

28  OASHL=8.75*ALOG10a.0~(1.0/wRT)**0.28b)+20.0*ALO(7l0'  VTI^T/ 

29  2 1116. 01+10. 0*ALOG10t AREA)+138. 9 

30  DIR=GIRC  ( AZMANG*  XANGLE*  XIJIR*  19*1) 

31  OASRL=OASRL-D1H-TREATT 

32  BRF=HLAUES*TRPM/60.0 

35  IF  ( MU'-1 1 S.  NE , 3.  AND.  NOR  TS,  NE, 6 ) GO  TO  8 

34  XL9=X1+FLA^1*C0S( HL9AG1/57.296  7 7p6 ) +FL AR2*COS( I-LR.AG2/67. 296 7 '98 ) 

36  2 +FLA93*C0S(FL^AG3/57. 298 7798) 

36  HR=Yl+FLApl*SlN(  KLPAGI/67,2967  798 ) +FI_A*J2*S1N ( FLRAG2/5  7. 298  7 ) 

37  2 +FLA»J3*SIN<FLPAG3/87.2967/95) 

38  ERS=180.0-AZMAMG-(  ( ATAN(  HP/XLP)  ) *57.2957 798 ) 

39  RAO=SQRT< XLP**2+HP**2) 

40  8H=RAU*SiN(EPS/57,2967/98) 

41  SU=SQRT(RAD*+2-BH**2) 

42  OD=STOD-SD 

43  IF(HH.Ul.O.O)  GO  TO  8 

44  CALL  SHI FLU ( SRI  SH*  SO* HR*  OD*  F * tLVANG  > 

45  5 CONTINUE 

46  DO  10  1=1*24 

47  RAT  1 0=F ( I ) /HRF 

48  IF  ( RAT  10.  LE ,1,0)  SREC=G1RC<  RATIO*  XRR1  * XSPEC1  * 10  * 1 > 

49  IF  (RAT  10,  GT.  1.0)  SR£C=UTAB2  ( RATIO*  9CTR*  XFR2*  X'JCT*  10*6*  1 * l * 

50  2 XSRtC2*6* IERR) 

51  SPL<  i)=OAS9L-Su£C-20.0*ALUG10(STOD)-(ST<>L)/ino'J.  ) *ALpHA ( I ) 

52  IF(N(1RTS.EQ.3.0R.N0PTS.K9.6)  5UL(  I > =SPL(  I > -S9LSH(  I ) 

63  IF (S9L( I) .LT.0.0)  S9L(1)=0.0 

64  10  CONTINUE 
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bb  CALL  DORLER ( SRL) 

b6  DO  20  1=1 >24 

b7  5PLR  < 2 # I ) =SpL < I > 

b«  20  CONTINUE 
by  RETURN 

fcO  END 
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SUBROUTINE  JET ( SWLJET) 

DIMENSION  SHt<24) »SPLSH(24) 

1 , S^LJET ( 24 ) 

2 , THTH ( 9 ) , OASD 1 W ( 9.17) , VRAT ( b ) , ANAT»< 12 ) , F SP ( 5, 12 ) 

WEAL  MA,MC,MCF,NF>K,K,KA»L0GST(17) .LOGS 

COMMON  NOPTS,  N0PTJ,F(24)  .ALPHA (24)  ,STOU»  ALT,  A/.MANG,  ELVANC. 

2 VAC » UPLUG  , DEQUI V , VEQU I V » F LAP1 , FLAP 2 , F'LAW3 » FLPAG1 , F L'-’AC-^  , 

3 FLPAb3»TTEQ»HNOZ»WNOZ»VJWNOZ»HWNOZ#WWN07> AHGN07. ANGWN/.NRtD, 

4 NK1,NW2,NK3,HSL0T,EJL»EJANG. WFF.PWF.DF.TF.TKfcATF.TWEATA.PWT, 
b UTUWB, BLADES. TWPM, ^CTR. SA , AH , THICK  , NOPTA , 8C  , SHW#  D^W  1M»  uANIN, 

6 DANOI )T,  XI » VI , VTI°T » V JWW I M,  V JSf C » T1 WK I M»  T fSEC , XCN.  TTWNO* , HI j 

7 . ALPHA1 . TREATT 

DATA  VHAT/0,2. O.4.G.6. 0.8» 1.0/ 

DATA  AWATW/0. » .2 , .3. , 4. . 5, . 6# . 7,  . 8. 1 , 0 ,1 . 2 , 1 . 4. 1 . 6/ 

DATA  ( (FSW( 1. J) , J=l,12) » I=l,b>/0.0» .135, .19, ,23b. .2ob, .28b. .29. 

1 . 29b. . 30 f . 30 . , 30 » . 30 . 

2 0,0. .17. .24b» .31b» ,37b».43b. .48. ,b3..61» .67b» .73. . 78, 

3 0.0. .23.. 32b.. 41. ,47b. . 535, . bHb. ,63. .71 . , 76b. . 82. . Mo. 

4 0.0, .20, .285, .385, .43, .49, .54, ,585. ,6b. .715, « 7b,  .805. 
b 0.0. .16.. 23. .29,. 3b» ,40b. .4b. ,b0» .58. .645. . 70  , . 7b/ 

DATA  THTP/0. 0.110., 120.. 130.. 140., lbO., 160., 170., 180./ 

DATA  LOGST/-1.6»-1.4,-1.2,-1.0,-0.8,-n,h.'*0.4,-0.?,0.0, 

1 0.2, 0.4, 0.6,0. 8,1. 0,1. 2, 1.4, 1.6/ 

DATA  ( (OASDIFK  I, J) , J=l»17) , 1 = 1 .9) /34.2,29.6,2b. » 20. 7,17.1, 

1 14. 4, 12,5,11. 3» 10. 8. 11, 1,12. ,13. 4, lb. 3, 17.5, 19.8,2P.l,24.b, 

2 34.2, 29. 6, 2b., 20. 7,17. 1,14. u, i?.8,l  1.3,1  O.M,  1?  .1  » 

3 12. ,13.4,15.3,17.5,19.8,22.1,24.5, 

4 38. 1,32. 5,26. 7, 21. 5,17, 2, 14., 13  .9,10.8,10.5,11  .,12.4, 
b 14.2,16.5,18.8,21.1,23.6,25.9, 

6 35. b, 29. 6, 23. 5,17. 6, 14. 1,1 1.8, 10. 4, 9. 9, IQ. 6, 12., 1 4. l.lb.b, 

7 19.2,21 .6,24. ,26.5,28.9, 

8 32. 6, 26. 5,20. 1,1  5., 11. 5,9. 7, 9. 4, 10. 7, 

9 12.8,15.5,18.3,21.1,24. ,26.7,29.6,32.4,35.1, 

1 31. 5, 25. 2, 18. 6, 13. 6, 10., 7. 8, 9. 2, 12. 1,1b. 3, 

2 18.6,22. ,2b. 3,28. b, 31. 9, 3b. 2,38. b, 41, 9, 

3 30. 2» 23. 8, 17. 3. 12. 4, 10. 6, 11. 3, 14. 3,1 7.9,21.7, 

4 25. 8,29.4,3  3. 3, 3 7. 2, 40. 9, 44, 7, 48.5,52. 2, 

b 33.5,27.4,21.1,15.8,13.8,15. 7,18.3,21 .8,28.1,30.4, 
b 34.5,38.8,42.9,47. .51,1 ,55.2,59.3, 

7 34. 7»2807,22.8, 17. 7, 16. 3 ,18.7.22.1.28.4,31 .4, 

8 3b. 1,40. 9,45. 6, 50, 4.55,1. 80, ,84,8,b9.b/ 

DU  10  T=1 ,24 

10  SWI.SHf  I)=0.0 
9=53.34 
9=32.1 74 
TSA=519t 

r=  ri  prim 

U=VJWWIM 

H1=DULUG 

82-D9RIM 

83=0ANIN 

B4=UAN0I  IT 

G A M= 1 • 4 

CA=H1b. 
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bb  MA=VAC/CA 

bb  TKA=1 » 4 ( ( GAM-1 • ) /2 • ) *MA**2 

b7  TTA=TSA*TRA 

b8  RHOA=39. 7/TSA 

b^  NPR=1./(1.-U**2/(2.*G*(GAM/'(GAM-1. ) )*R*T) ) ** ( HAM/ ( GAM-1 , ) ) 

60  RH0J=(39.  7/T)*NHH**<  ( SAM-1 .) /GAM) 

61  THETA=AZMANG«-ANGNOZ 

62  THETAP=THtTA*(U/CA)**0.1 

63  GO  TO  < 12*13*14) » NOPTJ 

64  12  AN33.14*(H2*«2-Hl*Bl)/4. 

6b  DHSH2-H1 

66  HL)=DH 

67  IJEUUlVsSNRT  ( H2*B2-H1*H1 ) 

68  IF ( HI . ST ,0.0'  H=(B2-Bl)/2. 

69  MgsDhQl'IV 

70  VEGUIV3VJPH1M 

71  TTEQ=T1PRIM 

72  SO  TO  1b 

73  13  AN=WNOZ*HNOZ 

74  DH=4,*AN/ ( 2 . *WNOZ+2 . *HNOZ ) 

7b  L)EGUIV=SGRT<4.*AN/3.14) 

lb  L)t=DEQUlV 

77  HD=OH 

76  V£GUiV=VJPRlM 

IS)  1TEQ=TTMRlM 

80  SO  TO  lb 

Ml  14  APRl=3.14*(H2*B2-Bl*Bl)/4. 

82  ASEC=3.l4*(H4*H4-H3*H3>/4. 

63  AN=APR1 

84  L)H=«2-H1 

8b  IJE=SQRT(H2*B2-B1*H1) 

86  UFQUIV=S0RT<4.*(  A»R I+ASEC > /3. 14 > 

87  IF (HI. ST, 0.0)  H=(H2-Bl)/2. 

88  H0=4.*<AWRI  + ASfcC)/(3.14’MBl+H2+B3  + H4)  ) 

89  TSPRI=T  TMH1M- ( * (SAM-1, )/2, ) *V JPR IM**2 ) / ( GAM*R*G ) 

90  TSSEC3T1S£C-(  ( (SAM-1,  ) /2,  ) * V«JSf.C**2  ) / ( GAM*K*G> 

91  WPKl=<2Ub.*APRI*VJPRIM)/(R*TSPRI  > 

92  WSEC= ( 2116,*ASEC*VJSEC ) / < R*TS  ;ec ) 

93  TTEQ=  ( T TSfcC*  WSEC+TT°R  I M*  WPR I ) / ( WSEC+WPR  i ) 

94  V/EGMIV=(  VJSEC*Wb£C+VJPRIM*WPRI)/(  W9EC+WPKI) 

9b  AHATSASEC/APRI 

9b  ARP=ALOS10( 1.+ASEC/APK1 ) 

97  VR=VJSEC/VJPRIM 

98  U=VJPR1M 

9P  lb  CONTINUE 

100  STF=( T/T I A)**  <0.4* ( 1 , +COS ( THETAP/67 . 3 ) ) ) * ( UH/UE) **0.4 

101  MC=0.62*U/CA 

102  MCF=30.*ALOS10( l.+MC*( ( 1 . +MC**b ) **-0 . 2 ) *COS ( THtTA/h 1 . 3 ) ) 

103  A=10.*ALOG10 < AN* < ( RHOA/0 . 0 76b ) **2 ) * ( CA/1 1 ’6, )**4) 

104  K=IJ/CA 

10b  H=10.*( ( (3.*K**3.b)/(0.b+K**3.b) )-l. ) *ALOS10 < RHOJ/WHOA ) 

106  C=10.*Al_Obl0<  (K**7.5)/(l.+0.01r'*K**4,b)  ) 

107  C 

106  C CALCULATE  OASPL  AT  90  DEG  FROM  EON  «6  OF  NASA  TMX 71618 
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1Q9  c 
110 
111 
112 
114 
114 
lib 
lib 
117 
113 

119 

120 
121 
122 
124 
124 
12b 
126 
127 
12H 

129 

130 

131 

132 
134 
134 
13b 

146 

147 
136 

139 

140  C 

141 

142 

143 

144 
14b 

146 

147 

148  C 

149  C 
lbO  C 
lbl  C 
lb2 
lb3 
154 
lbb 
lb6 
15  7 
158 


KA=134, 

IF { NOPT J. EG. 1 , AND. 81 . GT . 0 . 0 . OR . NOPT J. fed. 3 . AND. Bl . GT. 0 . 0 ) K A= 
1 144.+4.*ALOG10(0.10+2.*(H/B2) ) 

OAS90=KA+A+R+C 

1F<N0PTJ.N£.3)  GO  TO  lb 

IF ( AKAT • GE.29. 7 ) M=b.O 

IF ( ARAT . LT.29. 7)  M=l. 1*SQHT{ ARAT) 

FS=DTAH2  ( ARP»  VR>  ARATPt  VRAT 1 12 1 5»  1 * 1 » FF«,  5»  IERR ) 
OASDEL=5.*ALOG10 ( TTPR IM/TTFEC ) +10.*ALOG10 ( ( 1 .- 

1 VR ) **M+1 «2* ( 1 * + ( (ARAT)*VR*VP) ) 

2 **4/(l.+ARAT)**4) 

OAS90=OAS90+OASDEL 

lb  CONTINUE 
DELV=0.0 

IF(NOPTS.£Q.l ) DELV=4.0 

IF ( NOPTS. NE. 3, AND. NOPTS. NF . 6 ) GO  TO  35 

XLP=X1+FLAP1*C0S(FLPAG1  /57.295719b) +FLAP2'^COS(FL‘jAG2/ 

1 5 7 « 29b7  79b ) +FLAP3+C05 ( FLpAG4/57 . 2957795 ) 

XLP=XLP-2.*DE 

HP=Y1+FLAU1*SIN<  FLHAG1/57 , 29b7  795) +FLAP2*SIN( FL»A62/ 

2 57,295  7795) +FLAP3*SIN( PL°AG3/57.295  7795) 
tPS=1 80.-A/MANG-( ( ATAN(Hu/XLP) ) *5 7,295774b) 

RAD=SOWT(  XLP*XL°+H*-’*hp, 

BH=HAD*S IN  < EPR/57 . 2957795 ) 

SU=SUHT ( RAD*HAD-BH*8H) 

UU=STOU-SD 

It-  (8H.LE.0.Q)  GO  TO  45 

CALL  SHIELD  ( SPLSH»  SO#  BH»  00*  F»  EL'/AMG) 

45  CONTINUE 

OAS90=OAS90+UtLV 

IF (N0PTJ.E9.3)  SFCOAX— J ./(I ( T1 SEC/TTPRIM) *KS> 

DO  18  J=l»24 
ST=(F( J)*DE/U)*STF 
IF ( NOPTJ.EQ, 3 ) ST=ST+SFCOAX 
LOGS-ALOG10 (SI) 

DIFHSUTAH2  ( t.OOS*  THETAP?  LOGST * THTP*  1 7*9*  1 > 1 »OASUiR*9»  If-P'U 
SPI.(  J)  =OAF90-DIFF-MCF-20.*  ALOGIOI  STUD) -ALPHA  ( J)  *(  STOD/10')U.  ) 

******  t-**  UIF>  - 0A5PL  - FPL  - MCF 
R£F  FIG  #5  NASA  TNX  71618 

IF<  NOPTS. EQ.3. OH. N0PT5, £Q,6)  SUL(  U)  =S,JL  ( J ) -SPLSH(  U> 

18  IF(SPL(U) .LT.O.'D  SPL<J)=n,0 
CALL  OOPLEK ( SUL) 

DO  82  J=l#24 
82  SPLJET( J)=SPL( J) 

RETURN 

END 
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EXCESS 


1 SUBROUTINE  EXCESS (SPLEXS) 

2 DIMENSION  SNl(5)*Y10<b> * 

3 1SHL  ( 24 ) » SPLEXS  ( 24  ) * SPLSH  ( 24  ) 

4 COMMON  NOPTS*NOPTO*F(24) »ALPHA<24> »STOD*ALT*AZMANG*ELVANG* 

b 2 VAC  » DPLUG*  DEQUI  V*  VEQiJl  V * FLAP1 » FLAP2 * F LAP3  * FLPAG1 , FLPA62 * 

6 3 FLPAG3»TrEQ*HNOZ*WNOZ*VUWNOZ*HWNOZ*WWNOZ»AN6NOZ*ANGWNZ»NRE 

7 4 NK1 * NH2 * NK3 * HSLOT * E OL*  E 0AN6*  WFF * PRF*DF * TF » TREATF, TRE ATA » «R 

H 5 DTURB* BLADES* TRPM*PCTP*SA*  AR»  THICK*  NOPTA*  BC*  SHP*  D‘JRIM,  OANI 

9 6 DANOUT » XI  * Y1 * VT I PT  * V JPR I M * V JSEC  * TTPR I M * T TSEC  * XCN  * TTWN07  * HD 

10  7 * ALPHA1 * TREATT 

11  DATA  SN1/. 2* .25* .3* .3b* .4/ 

12  DATA  Y10/-11.4*-7.2*-5.H*-6.4*-7,9/ 

13  DO  10  1=1*24 

14  10  SPLSHd)=0.0 

15  A=3.14*0EQUIV*DEQUIV/4. 

16  IISVEQUIV 

17  E=10. 

IB  THETA=180.-AZMAN6-ANGNO7 

19  X=E*£*A*U**6*  ( 1 . -COS ( THETA/ 57. 3)  ) 

20  OASPL=0.0 

21  IF(X.tiT.l.O)  OASPL=10.*ALOG10(X)-70.0 

22  IF ( NOPTS. NE, 3* AND»N0PTS.Nt,6)  GO  TO  3b 

23  XLP=X1+FLAP1*C0S( FLPAG1/57 ,295779b ) +FLAP2*COS( FLPAG2/ 

24  1 57. 29b779b)+FLAP3*C0R(FLPAG3/57. 295779b) 

25  HP=Yl+FLAPl*SIN<FLPAGl/57.29b779b)+FLAP2*SIN(FL'->Ae2/ 

26  2 b7.29b779b)+FLAP3*SIN(FL'JAG3/b7.29577Pb> 

27  EPS=lH0.-AZMAM6-n ATAN(HP/XLP) ) *57.2957 79b) 

28  PADSSQRT  ( XLP*XLP+HP*HP  ) 

29  HH=RAD*SIN(£PS/57. 295779b) 

30  SD=SQPT(RAD*RAD~HH*BH) 

31  OD=STOU-SD 

32  IF ( HH, LE, 0 . 0 ) GO  TO  3b 

33  CALL  SHIELD ( SPLSH*  SD*  BH*  OD*  F*  ELVANG' 

34  3b  CONTINUE 

3b  DO  26  0=1*24 

36  SN=F(  J)*DEQIJIV/U 

37  IF ( SN, L£. 0 *2 ) SPEC=52 . 36*ALOG10 ( SN) +25.2 

38  IF(SN,GE.0.4)  SPEC=-28. b+ALOGlO ( SN) -19.2b 

39  IF ( SN, GT .0*2. AND, SN, LT, 0 • 4 ) S°EC=GIRC ( SN* SN1 * Y1 0 * 5* 1 ) 

40  SPL ( 0 ) =OASPL+  SPEC-20 . * ALOG1 0 < STOD ) -ALPHA ( J ) * ( STOD/ 1 0f" > . ) 

41  JF(NOPTS.EQ.3.0R,NO»»TS.EQ.6)  SPL  ( J)  =SPL  ( 0) -SPLSH  ( J) 

42  26  IF(SPL<  J)  .LT.0.0)  SPL(J)=0.') 

43  CALL  DOPLER(SPL) 

44  DO  82  0=1*24 

45  82  SPLEXS ( 0) =SUL { 0) 

46  RETURN 

47  END 
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SUBROUTINE  AUGWNG < SPLL) 

DIMENSION  S°LL<6>24) t 5PL ( 2a ) t XANGLE {16)»XDiK(lb)»  XSN( ltt) . XSREC (16) 
2 * XELV ( 10 ) > XtUIR ( 10 ) 

COMMON  N0PTS.N0PTJ.F(24)  > ALPHA (24)  >STOD>  ALT> AZMANG* £LVANG> 

2 VAC . DHLUG*  DEOUI V>  VEQtllV.  FLAP1  > FLAP2 1 FLAP3 > FLPAG1  t H LPAG2 > 


FLPAG3  > TTEQ  . HNOZ  t WNUZ  > VJwNOZ . HWNOZ  t W'™NO 


c.  . /-> ' -U( 


4 NR1 1 NR2 » NR3 1 HSLOT > E JL t E JANG ► WKF * RRH  » DF  t TF . TRE  ATF . TREAT A . PRT  ► 
b DTURB. BLADES*  TRRM.RCTP.SA.  AH. THICK , NORTA » BC . SHP» DPR TM. DAN  IN, 
b DANOUT » XI , Y1 , VTIP  T. VJPRIMr  VJSEC# TTPRIM,  TTSECf  XCN, T1 WNO/» HD 
7 , ALRH  A1 , TRE  ATT 

data  XANGLE/-70.0»-60.»-59. >-40. .-3n, >-20. >-10. » 0.0 > 10. > 20. > 30 . > 

2 40. * SO. *60. >70. >80./ 

DATA  XUIR/I2.8>10.0>8.0>6.5>t>.0»3.0>1.0>0.0>0.b>  1.0*2.  B>  f.B> 

2 11.0*11. 0*8. 0> 7.0/ 

DATA  XSN/O.01>O.O2*0.04>0.06>0.0H>O.l>0*2*0.3>0.4>O.B>O.G*O.B> 

2 l.n,i.5>2.0>4.0>6.0*10.0/ 

DATA  XSP£C/31.0*25. >1^.5* 16.5>ltt. 7*13. 0>V.5*R. 0*4.8*10.6*11 .6* 

2 13. *14. 5*18, 5*22. 8*33. 0*34. 0*47.0/ 

DATA  XELV/0. *10. *20. *30. >40. >60. >60. *70. *«0. *40./ 

DATA  XEDIR/3. *2.1»l.b*l.»0.7*0.4*0.2>9.1*0.05*0,0/ 

E JLHW=EJL/HWNOZ 
AHtA=HWNOZ*WwNOZ 

ANGRRM=A7MANG- < 180 . 0- ( F JANG+4S. 0 ) ) 

PERM=2.0*HWNOZ+2.0*WWNOZ 

HDIA=4.0*AREA/o£RM 

DIK=GIRC ( ANGPRM, XANGLE*  XOIR* 16* 1 ) 

DIR£=GIKC<£LVANG,  XELV*  XED IK* 10. 1 ) 

OASRL— GO  . 0*  ALOG1 0 < VJWN07 ) + 1 0 . 0*  ALOG1 0 < ARE  A ) -6  . 0 * ALUM  0 ( K Jl  .HW/ 1 (> . 0 ) 
2 -30. b 

OASPL=0ASPL-D I R-D I RE 

DO  10  1=1.24 

SN=F ( I ) *HDIA/VJWN07 

SPEC=GIRC<SN> XSN. XSPtC. IB. 1) 

SPL(  I ) =OASPL-SPEC-20  • Q*ALOGIO  ( STOD)  - ( STOD/lOO0  . )*At.'->HA<  1 ) 

IF (SPL( I ) .LT.0.0)  SRL(1)=0.0 
10  CONTINUE 

CAL'.  DORLEK(SPL) 

DO  20  1=1.24 
SRLL (1*1) =SML ( I) 

20  CONTINUE 
RETURN 
END 
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1 

2 

3 

4 
ft 
6 
7 
ft 
9 

10 

11 

12 

13 

14 
lb 
lb 

17 

18 

19 

20 
21 
22 

23 

24 
2b 
2b 

27 

28 

29 

30 

31 

32 

33 

34 
3b 
3b 

37 

38 

39 

40 

41 

42 

43 

44 
4b 
4b 

47 

48 

49 
b0 
bl 
b2 
b3 
b4 


SUBROUTINE  WNGJET  (SPLU 
DIMENSION  SPL ( 24 ) # SPLSH ( 24 ) 
l»SPLL(b#24) 

2#THTP(9) #0ASDIR{9» 17) * VRAT( b) * ARATFt 12 > *FSP(b»12> 

REAL  MA  # MC  # MCR  # NHR > K # K A # LOGST ( 1 / ) » LOGS 

COMMON  N0PTS#N0PTJ*F<24) *ALPHA(24) » RTOD# ALT* AZMANG* ELVANG# 

2 V AC » DPU  JO # DEQUI V # VEOUlV  # FLAP1 * F LA>»2  • FLAP3 # FL9AG1 » FLPAG2 » 

3 FLPAG3#  TTEQ#HNOZ#  WNOZ*  VJWN07#  HWNOZ*  WWNOZ#  ANGNOZ#  ANGWNZ#  NRED# 

4 NR1 * NR2 * NR3 > HSLOT # E JL # EJANG# WFF , PRF # DF # TF # TREATS # TRt A I A # FRT # 
b DTURH#  BLADES*  TRPM#  PCT9#  SA  * AR*  THICK # NO^TA # BC  # SHP#  DPRIM#  DANIN# 
b DAN0UT*X1#  V1*VTI»»T*VJPHIM#VJS£C»TTPRIM»TTSEC»XCN#TTWN07#HU 

7  »ALPHA1» TREAT r 
DATA  VRAT/0. 2*0. 4#0.b#0. 8*1.0/ 

DATA  ARATP/0. ».2»,3» .4*.b» .6* , 7*.ft»1.0»1.2*1.4#l .b/ 

DATA  ( (FSP<  I#  J)  » J=l»12)  # 1=1*5)  /O.'J*  .13b*  .19,  .235#  ,2bft#  ,28b#  .29# 

1 • 29ft # « 30 » . 30  # • 30 # .30* 

2 0.0#  .17#. 24b#  .315*  .375*. 435*  .48* .53#  ,bl#..b7b»  .73#  .78. 

3 0.0 #.23*. 32b# .41# .47b# ,535* ,58b# ,b3* . 71 # . 7bb# .82# .88# 

4 0.0# .20* .285* .365# .43* .49* .54* .58b# ,6b# • 71b* .7b# ,805* 
ft  0.0# .16#. 23 * .29# .3b# ,40b* .45# .50# ,bft» ,b4b* , 70 # . 7ft/ 

DATA  THTP/O.0*110.*120.*130.*l40.»lft0.»lb0, *170.*18Q./ 

DATA  LOGST/-l,b*-1.4*-1.2*-l.O*-O.8#-O.b#-o,4,-0.2»O.O* 

1  0.2»0.4*0.ft*0.8'1.0*1.2»1.4»l.b/ 

DATA  { ( OASDIR  (I  * J)  » J=l#.17)  » 1=1  # 9) /34. 2 » 29. b # 2ft . >20. 7#  17.1# 

1 14. 4. 12. 5 #11. 3# 10.8*11 .1*12. *13.4,15. 3* 17. ft #19, ft, 2?. l#24.b* 

2 34.2# 29. b# 25. *20. 7# 17.1# 14. 4# 12.5# 11.3# 10. 8# 11 .1# 

3 12. #13. 4 #15. 3 #17. 5* 19. 8 #22.1*24.5# 

4 38,1 #32.5* 2b. 7# 21.5# 17. 2 *14. #11. 9,10.8# 10. ft* 11. *12.4* 

5 14. 2#lb.ft#18.ft#21, 1*23.8*25.9# 

b 35.5# 29. b* 23. b # 17. b» 14,1# 11.8 #10,8*9.9# 10. b# 12. *14.1# lb. b» 

7 19,2#21.b»24, # 2b, 5# 28, 9# 

8 32.6#2b,b#20.1*1b,*ll,5*9,7#9.4#10.7# 

9 12. 8, 1 ft. ft# 18. 3 # 21. 1 * 24. # 2b. 7# 29. b# 32. 4# 3b. 1# 

1 31.ft#2b.2*18.b»13,b*10.f 7.8#9.2»l?.l#1b.3# 

2 I8.b#22. » 2b. 3 # 28. b* 31. 9# 3b. 2* 38. b# 41. 9# 

3 30.2 *23.8* 17. 3* 12.4*10.8# 13 .3* 14. 3* 17.9# 21. 7* 

4 2ft. b# 29. 4* 33. 5# 37. 2 *40. 9# 44. 7* 48. ft *52. 2* 

ft  3 3. ft* 27. 4 # 21. 1 * lft. b> 13, ft #15. 7* 1ft. 3# 21 . 8# 2b. 1 # 30 . 4* 
b 34. 5 #38. 8# 42, 9# 47. #51.1 #55. 2 #59. 3# 

7 34. 7 #28. 7 #22.8# 17. 7* lb, 1*18. 7 #22. 1*28,4*31.4# 

8 3b. I#40.9#45.6*b0.4#bb.l #80. *b4.8#b9.6/ 

DO  10  1=1 # 24 

10  SPLSH ( I ) =0 , 0 
R=53, 34 
6=32, 174 
TSA=519. 

T = T rWNOZ 
U=VJWNOZ 
6AM=1 , 4 
CA=lllb» 

MA=VAC/CA 

THA=1 , + < < GAM-1 . ) /2 . ) *MA**2 

TTA=TSA*TRA 

HH0A=39, 7/ TSA 
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WNGJtT 


i 


56 

bb 

b7 

58 

by 

bO 

bl 

b2 

63 

64 
bb 
66 
67 
b8 

6y 

70 

71 

72 

73 

74 

7b  C 
7b  C 
77  C 
7H 
7y 
HO 
81 
H2 

83 

84 
86 
86 

87 

88 

89 

90 

91 

92 

93 

94 
9b 

96 

97 

98 

99  C 

100  C 

101  C 

102  C 

103 

104 
106 
106 

107 

108 

109 


NPR=1. /<l.-U**2/< 2. *G*( GAM/ ( GAM-1, ) )*R*T> >**( GAM/ ( GAM-1 . ) ) 
RH0J=(39.7/T)*NPR**< ( GAM-1 . ) /GAM) 

THETA=AZMANG+ANGWN7 
THETAP=TH£TA*  ( I l/C A ) **0 . 1 

an=wwnoz*hwnoz 

DH=4 . * AN/ ( 2 • * WWNOZ+2 . *HWNOZ ) 

Dt=S0RT(4.*AN/3.14) 

IF(N0PTS.NE.4)  GO  TO  13 

D£QUIV=DE 

HD=UH 

VEQUIV=VJWNOZ 
TT£Q=TTWNOZ 
13  CONTINUE 

STF-( T/TTA ) ** ( 0 #4* ( 1 • +COS ( THET  AP/57.  3) ) ) *( DH/OE ) **0. 4 
MC=0.62*U/CA 

MCF=30 • *ALOG10  ( 1 • +MC* ( < 1 , +MC**6  > **-0.2) *COS( THETA/b  7 • 3 > ) 
A=10.*ALOG10(AN*< ( RHOA/O • 07bb) **2 ) * ( CA/11 16. )**4) 

K=U/CA 

H=10.*( < ( 3. *K**3. b )/(0»6+K**3.b) > -1 . ) *ALOG10 < RHOJ/PHOA ) 
C=10.*ALOG10( <K**7.b)/< 1.+0. 010*K**4.5) > 

CALCULATE  OAS^L  AT  90  DEG  FROM  EQN  86  OF  NASA  TMX 71618 

KA=134, 

OAS90=KA+A+8+C 
IF(FLAPl.LE.O.O)  GO  TO  3b 

Xt_P=Xl  + FLAPl*COS(  FL9AG1/S7. 2^67  796) +FLA°2*COS(  FLPAG2/ 

1 b7. 29b7  795 ) +FLAP3+COS ( FL«AG3/6 7 . 2l>b7  796 ) 

XLP=XLP-X1-2.*D£ 

HP=Yl+FLAPl*SIN(FLPAGl/67.2957  '96 ) +FLAP2*SIN ( KLPAGg/ 

2 b7.29b779b)+FLAP3*SIN(FLPAG3/57. 2967 796) 
t°S=180.-AZMANG-( { ATAN< HP/XLU) >*67.2967795) 

HAD=SQKT<  XLP*XLP+HP*HP) 

HH=KAD*S I N < EPS/57 . 2957  796 ) 

SD=SQRT  ( KAD*RAD-HH*BH ) 

OD=STOD-SD 

IF(HH.LE.O.O)  GO  TO  3b 

CALL  SHIELD ( SPLSHr  SO*  HH»  OD» F * ELVANG) 

3b  CONTINUE 

DO  18  J=l*24 
ST=(F( J)*DE/U)*STF 
LOGS=ALOG10(ST) 

UI FF=UTAHP ( LOGS»  THETApf LOGSTr rHTP* 17* 9, l , l , OASO IR» 9* 1ERF  > 
SPL(J)=OAS90-DIFF-MCF-20.*ALOG10(STOU  (-ALPHA  ( J)*(STOIV10'I'!.  ) 

*********  DIFP  = OASpL  - SPL  - MCK 
REF  FIG  8b  NASA  TMX  71618 

IF  ( FLAP1 . GT. 0 . 0 ) SPL  ( J ) '^PL  ( J)  -SWLSH  ( J ) 

18  IF (SPL(J) .LT. 0.0)  SPL(J)=0.0 
CALL  OOPLER(SPL) 

DO  82  J=l*24 
82  S9LL<2» J)=SPL( J) 

RETURN 

END 
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1 SUBROUTINE  IMPING(SPLL) 

2 DIMENSION  S»»LL< 6»24 ) » SPL( 24 ) » SPLOA ( 9 ) t 

3 2 PNGDIR(4»14) »PNGANG<4> »THETAG<14> >THEDIK<lb) »ELVDIK(lb> 

4 HEAL  MSN( 9) t MJ»  LAM 

b COMMON  N0PTS»N0PTJ»K(24)  t ALPHA  (24)  »STOD.»  ALT*  AZMANG> tLVANGf 

6 2 VAC»OPLUG»DEQUIV# VEQt IIV* FLAP1 » FLAP2» HLAP3 » FLPAG1 »FLPAG2» 

7 3 FLPAG3>  TTEGD  HNOZ» WNOZf  VJWNOZf  HWN07>  WWNOZ*  ANGNOZ* ANGWNZ*  NKED# 

8 4 NR1» NR2 t NR3 r HSLOT  t E JL t E JANG » WFf  r PRF  » OF  r TF » TREATF ► TRE ATA  t PRT » 

9 h DTUR8»  8LADES»  TROM»  PCTP>  SA  t Mr  THICK*  NO»TA  t RC  r SHP,  OPR I M*  DANIN* 

10  6 OANOUT*  XI*  Y1 » VTIPT* VJPRIM* VJSEC* TTPRIM* TTSEC* XCN* TTWNOZ* HD 

11  7 t ALPHA1 t TREATT 

12  DATA  THEDIR/0.»30.»60.»90.*120,»lRO.*165.*18n,,210.» 

13  2 240. *270. *300. *330. »340. >360./ 

14  DATA  ELVUIR/-5. *0. 5*1.9*2.2*3.5*10. 0*16. 0*14. 0*4.0* 

lb  2 2.0>U.7*-2.7*-11.0*-11.3>-b./ 

16  DATA  MSN/. 08* .10* .15* .2* .25* .3* .4* .5* .6/ 

17  DATA  SPLOA/-2b.4*-22. *-17, *-15.3*-14,9*-16, *-16.2*-] 7. 5 *-18. 6/ 

18  DATA  PNGANG/15.»30. *60. *90./ 

19  DATA  THtTAG/0.>30.»60.*yp.*10C’.*120.*lbO.*180.*210.* 

20  2 240.»270.*300.*330.»360./ 

21  DATA  ( (PNGDIHU* J) * J=l*14) t 1=1 *4)/-14. *-12. *-10. »-3. * 

22  2 -2. *-10. *-19. *-23. *-23. *-25. *-25. *-18. *-1 6. *-14. * 

23  3 -13.*-ll.»-H.*-l.»0.0*-5.*-23.*-2b.*-26.* 

24  4 -25.*-23.*-16,»-t4.*-13.> 

2b  b -6. *-4. *-2. *0.0*0.Q*-8« *-20. *-23. * 

26  6 -24.*-22.*-17.»-12.*-8.»-6.* 

27  7 0.0*0.0»0.0»0.0*0.0»-7.*-19,* 

28  8 -23.*-23.»-22.*-18.*-6,*-l.*0.0/ 

29  T F ( NOPTS • £9 • 4 . OR , NOPTS , EG • 5 ) GO  TO  90 

30  GAM=1.4 

31  X0=0.0 

32  R=b3.34 

33  GC=32.2 

34  T=TrEQ 

3b  U=V£«UIV 

36  TS=T-( (GAM-1, )*U*U) /(?,*GAM*R*GC) 

37  MJ=tl/SQRT(GAM*R*TS*GC> 

38  IF ( VAC  * GT, 0 , 1 ) LAM=U/<VAC> 

39  C ***************************************  ******************* 

40  C CALCULATION  OF  XP  r IMMING£M»T  ANGLE  ALPHA  ft  IMPINGEM*  T AREA 

41  C ******************************************************* 

42  IF (NOPTS, EG. 2)  GO  TO  20 

43  C 

44  £ *******  USH»  HYBRID  *********************** 

45  C 

46  IF ( ALPHA 1,L£, 0,0 ) GO  TO  90 

47  ALPH=ALPHA1 

48  XP=Y1/SIN( ALPHAl/57,3) 

49  GO  TO  26 

bO  C ******************************************************* 

51  C *******************E8F  ********************* 

52  C ******************************************************* 

53  20  NFLAPS=0 

54  IF(FLAP1,GT.0.0)  NFLAPS=1 
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64  C 
6b  C 
6b 

67 

68 

69 

70 
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81  C 
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IRFLAP2.GT.0.0)  NFLAPS=2 
IRFLAP3.6T.O.O)  NFLAPS=3 

IF ( NFLAUS. GT. 0 ) AVGFA= ( FL^AGH  FLPAG2+FLPAG3 ) /NFLAPS 
IF ( NFLAPS. EQ,0>  AVGFA=0.0 
X8=Y1*TAN( (90.-AVGFA)/57.3) 

XA=X1+X8 

ZL=FLAP1+FLAP2+FLAP3 

IF < ALPHA1.LT. 0,0)  GO  TO  24 

£HF  WITH  AL9HA1  G£  0.0************* 

IF  ( ALPHA 1 . L£ . 0 • 0 ) GO  TO  28 
XC=Yl/TAN(ALPHAl/57.3> 

IF(XC.GE.Xl)  GO  TO  ?8 
XP=Y1/SIN( AUPHA1/57.3) 

ALPH=4LPHA1 
GO  TO  26 

28  ALPH=ALPHA1+AVGFA 

PHI=180.-ALPHA1-AVGFA 

X9=SIN(AVGFA/57.3)*XA/SIN(PHI/57.3) 

XH=XP*COS(ALPHAl/57.3) 

X£l=ZL*COS( AVGFA/57.35+X1 
IF (XH.GE.XE1)  GO  TO  90 
GO  TO  26 
24  CONTINUE 

E8F  WITH  ALPHA1  LT  0.0  ************* 

ALPH2AV/GFA+ ALUHA1 
PHIS180.-AVGFA 

XP=SlN(PHI/b7.3)*XA/SIN( ALHH/57.3) 
XH=XP*C0S(-ALPHAl/57.3) 

XE1=ZL*C0S ( AVGFA/57. 3 ) + X1 
IF (XH.GE.XE1)  GO  TO  90 
26  CONTINUE 

GO  TO  ( 12  # 13 » 12 ) » NOPTJ 

12  IJH— HL) 

L)E=l)tQUlV 

IF ( VAC • LT .0.1)  OIH=0.089*(XP-X0)/D£ 

IF (VAC. GT. 0.1)  OIK=(0.089*(XP-X0)/DE>/SORT(1.+(0.2// 
2 SQKTt LAM* ( LAM-1. ) ) )*( (XP-X0>/Ofc) ) 

DI=UIH*DE 
A 1 23.14*D I *D 1/4, 

GO  TO  14 

13  Ot=OEQUIV 


100  UH=HU 

101  IF ( VAC.LT.O. 1)  HIP=0.109*( XP-X0)/HNO/ 

102  I F ( VAC.  GT,  0.1)  HIK=0.109*(  ( XP-XO  ) /HNOZ ) / ( 1 . + ( 0 . Oh/VWT  < LAM* 

103  2 (LAM-1. )) )*9QRT( (Xa-XO)/HNOZ) ) 

104  HI=HIH*HNOZ 

105  Al=WNOZ*HI 

106  UI=H1 

107  14  CONTlNUt 

108  A24.0 
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114  C 
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116  C 
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126  C 

127  C 

128  C 
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IF<NOPTJ.EQ.£>  A=4./(l.+<8./3.  >*<D£/DH-1.)  ) 

VIPR=(i.-M  (0.1b*XP)/(XCN*D£*SQRT(l.+MJ) ) )**A)**(-1./A) 
VIP=VIPR*U 

CALCULATE  OASR-  ft  DIRECTIVITY  EFFECTS 
DIRECTIVITY  FIRST  CALC»0  IN  FLYOVER  PLANE 
THEN  CORRECTED  FOR  ELEVATION 

OASPL=10.*ALOG10( ( AI ) * ( SIN ( ALHH/57. 3) ) **2) +80.*ALOG10 < VIP)- 74. 
I F ( NOPTS. EQ, 3 . OR . NOPTS. EQ. 6 ) TH£PNG=360 . 

1 -ALPHA1-A7MANG 

I F ( NOPTS. EQ . 2 ) TH£PNG=AZMANG- ALPHA1 
THTALP=ALPH+THEPNG 

ATHEDH=DTAB2  < TH£PNG»  ALPHt THETA G * PNGANGr 14  ► 4» 1 1 1 * PNGUIR » 4 » IERR ) 
ELVD8=G I RC ( THT ALP  > THED IR  t E LVD 1 R 1 1 b t 2 > 

THEDH=£LVUH*COS<  ELVANG/b7. 3> 

OASPL=OASuL+ATH£DB-THEDB 

CALCULATE  SPECTRA 

DO  17  J=l#24 

SN=F< J)*DI/( ViP*SQRT(SIN( AL°H/b7.3> ) ) 

IF (SN.LE.0.08)  DEL=37.37*AL0610(SN)+15.b9 

IF(cn.GE.0.6)  DEL=-15.3«*ALOG10(SN)-22.0 

IF (SN.GT. 0.08.  AND.SN.LT. 0.6)  I'EL=GIRC  ( SN»  MSN»  SPLOAf  9. 2 ) 

SPL( U) =OASPL+DEL-20.*AL0610 ( STOD) -ALPHA ( J) * ( STOD/IOOO . ) 

17  I F ( SpL ( J ) . LT , 0 . 0 ) SPt  (J)=0.0 
CALL  DOPLER(SPL) 

DO  82  J=l»24 
82  SPLL<3> J)2SPL(U) 

90  CONTINUE 
RETURN 
END 
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1 SUBROUTINE  WALJET  (SPLU 

2 DIMENSION  SPLL(6#24) »THEUIR( lb) *£LVDIR( 1 5) * 

3 2 SPL(24) *ANGLE<37) #DEL<37> *0AS90(17> 

4 REAL  LSN# LOGST <17) 

5 COMMON  N0PTS*N0PTJ#M24>  * ALPHA (24)  #STOD#  ALT  # AZMANG#  EL VANG# 

ft  2 VAC#  DPLUG#D£9t  IIV#  VEQUI V#  ELA^l  # FLAP2 # FLAW3#  FL,JAG1 » FI.PAG2# 

7 3 FLPAG3#  TTEO#  HNOZ#  WNOZ#  VJWNOZ#  HWN07#  WWN07#  AN6N07#  ANGWNZ#  NRKD# 

8 4 NR1 # NR2  » NR3 # HSLOT  # £ JL  # £ JAN6 » WFF # PRF , DF # TF  » TREATF # TREAT  A ► PPT  ► 

9 5 DTURB»HLAO£S#  TRPM#  PCTH#  SA # AR#  THICK#  NOPTA#  BC#  SHP# OPRIM# DAN ( N» 

10  ft  DANOIJT » XI # Y1  # VT IPT * VJPR IM»  V JSEC#  TTWRIM#  TTSEC * XCN#  TTWNOZ#  Hi) 

11  7 »ALPHA1»TREATT 

12  DATA  L<)GST/-1.6#-1.4»-1.2#-1.0#-0.8»-0.ft#-0.4#-0.2# 

13  1 0 , Q # 0 • 2 » 0 • 4 # 0 « 6#  0 . B#  1 , 0 # 1., 2 » 1 , 4#  1.6/ 

14  DATA.  OAS90/-32.4#-2H,3#-24.4#-20.6#-l7.1#-14.4#-12.5# 

lb  1 -11.2#-10.7#-10.7#-ll.S#-13.2*-lb.5#-18.2»-21.2*-24.3#-27.6/ 

16  DATA  ANGLE/0, #10. #20. #30, #40. #50. #ftn. # 70 . * 80  . * 90 . * 1 00  , * 1 10  . * 

17  1 120. *130. *140. *150, *160. *170. »1H0. *190. *200. *210. *220.* 

IB  2 230.  *240.  >250.  *260..  *270.  *2H0.  *290.  *30fl.»310.  *320.  * 

19  3 330. *340. *350. *360./ 

20  DATA  DEL/-6,6*-6. 1 * -5, 4*-4,ft *-3. 7 * -2 • 7 ► -1 • 7* -t , 1 *-0. 4*0.0* 

21  2 -0.2#-l.l»~1.7»-2.9#-3.9»-4.5»-8.5#-6,3#-6.8»-7.6#-9,9# 

22  3 -3  2.9,-17. #-24.4#-33.4»-35.H#-37. #-37. 5 *-37.2  * -3ft.  It -3ft. 5# 

23  4 -33,2# -28, #-19, #-13, #-9. #-6,6/ 

24  DATA  THEDIR/0. # 30. # 60, # 90, #105, #120. #150. #1 HO .#21 0,# 

25  1 240. #270. *2H0. #300. #330. #360./ 

26  DATA  ELVUIR/1 ,9*2.2*3.5# 10. #lft.*14,#4.#2.*0,7# 

27  2 -2.7#-3l.#-13 ,3# -5, #0.5*l,9y 

28  C 

29  C OAS90  = FUNC(LOGST)  SPECTRA  SHAPE  FOR  ENGINE  JET  NOISE  AT 

30  C 90  OEb  FR  NOZ  AXIS 

31  C 

32  GAM=1.4 

33  R=53.34 

34  GC=32.2 

35  IF  ( NOPTS, £Q, 4 ) GO  TO  4 

3ft  T=TTEQ 

37  U=VEQUIV 

38  GO  TO  5 

39  4 T-TTWNOZ 

40  U=VJWNOZ 

41  5 TS=T-( (GAM-l. ) *U*U ) / ( 2 . *GAM*R*GC ) 

42  MJ=U/SORT(GAM*H*TS*GC) 

43  DE=DEQUIV 

44  IF ( VAC.GT.O.U)  LAM=U/VAC 

45  C *******  DETERMINE  MO.  OF  FLAPS  S AVER  FLAP  ANG  ******* 

46  C 

47  NFLAPS=0 

48  IF(FLAPl.GT.O.O)  NELAPS=1 

49  1F(FLAP2.GT.0.0)  NFLAPS=2 

TiO  IF  ( FI.AP3,  GT,  0.0)  NFLAPS=3 

51  IF(NFLAPS.GT.O)  AVGFA=< F LPAG1+FLPAG2+FLPAG3 ) /MFLAPS 

52  IF ( NF LAPS • EQ,  0 ) AVGFA=0.0 

53  IF ( NOPTS. EO. 3. OR, NQPTS, EM, 4, 1 'R, NOuTS, EQ. ft ' «0  TO  60 

64  C *******************************  i ************  ******* **** 
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bb  C ** ****************  £bp  COMPUTATIONS  ********************** 

56  C ********************************1;************************** 

57  X8=Yl/TAN(AVGFA/57.3> 

56  XA=X1+X8 

59  ZL=FLAPl+FL,Ap2+FLAP3 

60  IF( ALpHAl.lT#0»0)  GO  TO  30 

61  C ********  ALPHA1  G£  0.0  *********** 

62  IF(ALPHAl.LE.O.O)  GO  TO  2H 

63  XC=Y1/TAN( ALPHA1/57.3) 

69  IF(XC.GE.Xl)  GO  TO  28 

65  XPRIM=ZL+(X1-XC> 

66  X*=Yl/SIN(ALPHAl/57.3> 

67  GO  TO  32 

68  28  PHI=180*-AVG6A-ALPHA1 

69  XP=SIN( AVGFA/b7.3)*XA/SIN(PHt/57.3) 

70  IF(ALPHAl.LE.O.O)  XRSXA 

71  SS=XP*SlN(ALPHAl/57.3) 

72  P=(Yl-SS)/SIN(AVGFA/57.3) 

73  XPRIM=ZL-P 

79  IF(XPRIM.LE.O.O)  GO  TO  90 

7b  GO  TO  32 

76  30  CONTINUE 

77  C ********  ALPHAl  LT  0«0  *********; 

78  PHIaiHO.-AVGFA 

79  gammasavgfa+alphai 

80  RR=SIN ( -ALPHA1/57. 5 ) *XA/SIN ( GAMMA/57. 3 ) 

81  PsYl/SIN ( AVGFA/57 • 3 ) 

82  XPRIM=ZL-P-RK 

83  IF(XPRIM.LE.0.0>  GO  TO  90 

89  XPSSIN ( PH 1/57 .3)*XA/SIN( GAMMA/ 57 ■ 3 ) 

8b  32  CONTINUt 

86  GO  TO  ( 12» 13» 12 ) * NOPTU 

87  12  IF(VAC.LE.O.O)  DIR=0.089*XP/!)t 

88  IF ( VAC*  GT.  0 « 0 i DIR= ( 0, 0H9*X9/U£ ) /SQRT< 1 .+  ( 0 . 27/SQRT ( LA^* ( LA^-1 . ) 

89  2 ))*XP/DE) 

90  DI=DIR*UE 

91  IF(XPRIM.LE.DI)  GO  TO  90 

92  XPRIM=XPRIM-UI 

93  8=0.33*XPRIM+l.b*DE 

99  XP'JESXPRIM/DE 

95  IF ( XPOt ♦ LT • 0. 5 ) XPDE=0.5 

96  DELTA=0.92*UE/(XPUE)**0.7b 

97  GO  TO  70 

98  13  Ih ( VAC, LE. 0.0)  HIR=Q , 1P9*X°/HN07 

99  IF ( VAC  » GT « 0 • 0 ) HIR=  < 0 . 109*Xp/HNOZ ) / ( 1 #+ ( 0 * 6b/ SORT < LAM* ( LAM-1 • ) ) ) 

100  2 *SORT( X9/HNOZ) ) 

101  HI=H1R*HN07 

102  IF ( XPRIM, L£« HI ) GO  TO  90 

103  XPRIMSXPRIM-HI 

109  B=0.33*XPRIM+l.b*WNOZ 

105  XPH=X»RIM/HN07 

106  IF( XPH.LT.O.b)  X^HrO.5 

107  n£LrA=0.92*HNOZ/( XPH)**0,7b 

108  GO  TO  70 
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109  60  CONTINUE 

110  C *******************************  c*********************** 

111  C ************  IJSB  , HYBRID  A 1BF/ 8LC  COMPUTATIONS  ************** 

112  C ********************************  k******************************  ***** 

113  C EBF/USH  « IBF/BLC  4 HYBRID  ASSUME  SLOT  NOZZLES 

114  C 

116  IF ( ALPHA1.GT.0.0)  XP=Y1/SIN(  ALPHA1/57.3) 

116  IF( ALPHA1.LT, 0.0)  GO  TO  90 

117  XW=XP*COS( ALPHAl/67,3) 

118  , IF ( ALPHA 1 , LE. 0 • 0 . OR, NOwTS. £0,4 ) XW=0.0 

119  ZL=FLAP1+FLAP2+FLAP3 

120  THET=2.*AVGFA 

121  KC=ZL/(TH£T/57.3) 

122  RL*X1-XW+ZL 

123  IF (RL.LE.0.0 ) GO  TO  90 

124  H=HNOZ 

126  IF ( N0PTS.EQ.4 ) H=HWNOZ 

126  WSWNOZ 

127  IF! NOPTS.EQ. 4)  W=W'\fNOZ 

128  DELTA=H*<0.6*SQRT<RL/H)+8.*<H/RC)**2+0.2*<RC*TH£T/!H*B7.3> ' ) 

129  DELTAS <H+DELTA)/2. 

130  XF=ZL*COS( AVGFA/67.3) 

131  XLS=X1+XF 

132  H=W 

133  70  CONTINUE 

134  C ************  COMPUTE  OASuL  ***<******** 

136  C 

13b  IF  ( NOPTS.  EQ.  3.  OR.  NOPTS.EQ.  4.  UR.  NOPTS.EQ.  6)  OASPL=10 . *ALOG10<  Rl.*B 

137  1 +80.*ALOG10(U)-10b. 

138  IF  (NOPTS.EQ.  2)  OASPL=10  ,*Al.OG10  ( XPRIM+B)  +H0  . + ALOG10  ( IJ) -1  06. 

139  PSI1=AZMANG+AVGFA 

140  IF ( NOPTS, EO. 3 . OR. NOPTS, E«. 4 . OR . NOPTS. EQ. 6 ) PS 11=360 . -AZMANfo- A VHP 

141  DIRECT=GIRC ( PSI1 » ANGLE » DEL » 28 f 1 ) 

142  ELVDHsGIRC  ( PSI1 » THEO I R » ELVL) I R » 16»  2 ) 

143  THE()H=ELVi  )H*COS  ( ELVANG/57.  3 ) 

144  OASPL=OASPL+DIRECT-THEDH 

146  DO  81  J=1 t 24 

146  LSN=ALOG10(F (J)*DELTA/U) 

147  SPEC=GIRC  ( LSN  t LOGST » OAS90 ► 1 7 » 1 ) 

148  SPL!  J)  =OASPL+SPEC-20.  *Ai-OG10  ( STOD)  -ALPHA  ( J)  * ( STOU/10''0 . ) 

149  HI  IF(SPL( J)  .LT.0.0)  SPL(J)=0.0 

160  CALL  DOPLER(SPL) 

161  DO  82  J=l»24 

152  82  SPLL ( 4 » J ) =SPL ( J ) 

163  90  CONTINUE 

154  RETURN 
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SUBROUTINE  WAKE(SPLL) 

DIMENSION  SPLL (6*24) * VTER ( 9 ) * XPR ( 9 ) * 

2 SPL ( 24 ) * ANGLE ( 19 ) * VAL1 ( 19) » OAS90 ( 17) 

REAL  LSN*LOGST<17) 

COMMON  N0PTS*N0PTJ*F<24) *ALFHA(24> * STOD*  ALT » AZMAN6*  ELVANG* 

2 VAC*  DPLUG*  DEGUIV*  VEGUIV*  FLAP1 » FLAP2 » FLAP3 * FLPAG1 » FLPAG2 * 

3 FLPAG3 * TTEG * HNOZ > WNOZ  * VUWNOZ  * HWNOZ  * WWN07  * ANGNOZ  * ANGWNZ*  NRf D > 

4 NH1 * NR2 * NR3 * HSLOT * EJL* EJAN6 * WFF * PRF * DF * TF ► TREATF * TREATA * pi>T * 

5 DTURB*  BLADES*  TRPM*  PCTP*  5A * AR  * THICK*  NOPTA*  BC*  SHP* DPRIM, DAN l N* 

6 DANO(JT*Xl*Yl*VTIPT*VJPRIM*VJSEC*TTPRlM*TTSeC»XCN*TTWNOZ*HI) 

7 * ALPHA1 * TREATY 

DATA  VTER/. 91 *.91 *.9*. 89*. 85* .8*. 75 *.68*. 62/ 

DATA  XPR/.b*l, *1.5*2. *2.5*3, *3.5*4. *4.5/ 

DATA  LOGST/-1.6*-1.4»-1.2*-1.0*-0.8*-0.6»-0.4*-0.2» 

1 0.0*0. 2*0. 4*0. 6*0. 8* 1,0*1. 2*1. 4*1. 6/ 

DATA  OAS90/-32.4»-2R.3*-24.u,-20.6*-17,l*-14,4*-12.b* 

1 -11.2»-10. 7*-10,7*-11.5f-13.2»-15.5*-lB,2»-21,?»-24.3*-27.6/ 
DATA  ANGLE/0, *, 10. * 20. * 30. »40,. *50, * BO. *70. *80. *90. *100.* 110. » 

1 120. * 130. » 140. *150.* 160. *170,* 180./ 

DATA  VAL1/-7,  »-6.*>-5.5,*-5.*-4.*~3.5*-2.5*~2.»~l.*0.5» 

1 1.5*3, *4.5*6. » 7, *6, *4.5*3. * 1./ 


GAM=1,4 

R=53.34 

GC=32.2 

1F(N0PTS.E0.4)  GO  TO  3 

TSTTEQ 

UrVEQUI'/ 

GO  TO  4 

3 T=TIWNOZ 
UsVUWNOZ 

4 CONTINUE 

TS=T-( (GAM-1, )*U*U>/< 2. *GAM*R*GC) 

MJrlJ/SQHT < GAM*R*TS*GC ) 

IF(N0PTS,E0.4)  GO  TO  12 

DErQEGUIV 

DH=HD 

GO  TO  13 

12  AN=WWNOZ*HWNOZ 
UE=SQRT(4.*AN/3.14) 

DH=4 . * AN/ ( 2 , * WWNOZ+2 , ♦HWNOZ ) 

13  CONTINUE 
A=4.0 

IF  ( NOP TJ, EG, 2 ) A=4./(l.  + <8./3.  >*<L)E/DH-l.  ) ) 

*******  DETERMINE  NO.  OF  FLAPS  S AVER  FLAP  ANG  ******* 

NFLAPS=0 

IF  ( t-LAPl  ,GT ,0.0)  NFLAPS=1 
IF(FLAP2.GT,0.0)  NFLAPS=2 
IFO-LAP3.GT.O.U)  NFLAPS=3 

IF  ( NFLAPS.  GT,  0 > AVGFA=  ( FLPAbl  + FLPAG2  + Ft_PAG3 ) /NFL  A PS 
IF ( NFL APS. £0, 0 ) AVGFASQ.O 

IF ( NUPTS, £0. 3. UP, NOPTS. EG, 4, OR , NOPTK* EQ, 6 ) GO  TO  60 
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56  C ******************************************************* 

56  C **************  £HF  COMPUTATIONS  ******************************** 

57  C ******************************************************************** 

58  XB=Yl/TAN(AVGFA/b7.3) 

59  XA-X1+XB 

50  ZL=FLAP1+FLAP2+KLAP3 

61  IF(ALPHAl.LT.O.O)  00  TO  30 

62  C ********  ALPHA1  GE  0.0  *********** 

63  IF(ALPHAl.LE.O.O)  00  TO  28 

64  XC=Y1/TAN( ALPHA1/67.3) 

6b  IF(XC.OE.Xl)  GO  TO  2H 

66  XPRIM=ZL+< Xl-XC) 

67  XP=Y1/SIN{ ALPHA1/67.3) 

68  GO  TO  32 

69  2H  PHI=180 •“ AVGFA-ALPHA1 

70  XP=SIN< AVGF^/b7.3)*XA/SIN(PHI/b7.3) 

71  IF ( ALPHA1 • LE.O • 0 ) XP=XA 

72  SS=XP*SIN(ALPHAl/b7.3) 

73  P=( Y1-SS)/SIN< AVGFA/57.3) 

74  XPRIM=ZL-P 

7b  lF(XPRlM.LE.O.O)  GO  TO  90 

76  GO  TO  32 

77  30  CONTINUE 

78  C ********  AL.PHA1  LT  0«0  ********** 

79  PHI=180.-AVGFA 

80  (SAMMA=AVGFA+ALPHA1 

81  RHSSI N( — ALPHAl/b7« 3)*XA/SIN( GAMMA/ 67 . 3 ) 

82  P=Y1/SIN( AVGFA/57.31 

83  XPHIM=ZL-P-RK 

84  lF(XPRIM.LE.O.O)  GO  TO  90 

8b  XP=SIN(PHI/67.3)*XA/SIN<GAMMA/b7.3> 

86  32  CONTINUE 

87  VlPR=(l.+( (0.1b*XP)/(XCN*DE*SQHT(l.+MJ) ) 1 **A ) ** ( -1 . /A i 

88  V1P=VI«R*U 

89  XPOD=XPRIM/DE 

90  VTEV IP=GIHC ( XP00»  XPR  t VTER»  9 * 1 ) 

91  VTE=VTFVIP*VIP 

92  GO  TO  ( 33*  34  * 33 ) t NOPTJ 

93  33  H=0.33*XP«IM+l.b*DE 

94  XPUE=XPRIM/DE 

95  IF  ( XP()E  . LT«  0 • b ) XHDE=0.b 

96  l)ELTA=0.42*D£/MXPUE)**0.7b 

97  GO  TO  70 

98  34  «=0.33*XPKlM+l.b*WNOZ 

99  XPH=XPRIM/HNOZ 

100  IF(XPH.LT.O.b)  X«H=0.b 

101  OELTA=0.42*HNOZ/( XPH)**0.7b 

102  GO  TO  70 

103  60  CONTINUE 

104  C ********************************  ************************** 

105  C ***********  USB  r HYBRID  8 IBF/RLC  COMMUTATIONS  ************** 

106  C ********************************  :*******************  + *************** 

107  IF ( ALPHA 1. GT, 0.0)  XP=Y1/SIN< ALPHA1/67.3) 

108  IF ( ALPHA 1. LT » 0 » 0 ) GO  TO  PQ 
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109 

XW=XP*COS< ALPHAl/b7.3) 

110 

IF(ALPHAl.L£.O.O.OR.MOPTS.eo.4)  XW=0.0 

111 

ZLSKLA^l +FLAP2+FLAP3 

112 

TH£T=?.*A'.  ;FA 

113 

RCsZL/  * '*'HtT/b7.  3) 

114 

KL=X1-XW+ZL 

lib 

IF i RL»  LE • 0 • 0 ) GO  TO  90 

116 

W=WNOZ 

117 

IF(N0PTS.£Q.4)  WSWWNOZ 

11H 

H=HNOZ 

119 

Ih (N0PTS.EQ.4)  HSHWNOZ 

120 

CELT  ASH*  ( 0 • b**iQRT  ( KL/H)  +8#  * ( H/HC  ) **2+0  «2*  < RC+THET/  ( H*5  7 • 3 ) > ) 

121 

VTE=U 

122 

XhS7L*COS( AVGFA/b7.3) 

123 

XL9=X1+XF 

124 

H=W 

12b 

70 

CONTINUE 

126 

C 

•*****+******  COMPUTE  OASPL  ************ 

127 

C 

128 

OASPU=10 , * ALOGIO ( DELTA*B ) +80 . * ALOGIO ( VTE ) -1 1 1 . 0 

129 

0ANG=AMAX1  ( F LPA(il  * FLPAG2 » FLPAG3 ) 

130 

PSI 1-AZMANG+UANG 

131 

OIHECT26IKC ( ^Si 1 1 ANGLE » VAL1»19»1) 

132 

oasplsoaspl+uihect 

133 

UO  Ml  J=l»24 

134 

LSNsALOilO F ( J)  +OELTA/VTE ) 

13b 

SP£C=G IRC  ( lSN.  LOGc5T»  OAS90  > 17 1 1 ) 

136 

SU'L  ( J)  =OASPL+SPF.C~20  »*  ALOGIO  ( STOD) - ALUHA  ( J)  * ( STOD/100'’ . ) 

i37 

81 

I F ( SPL  ( J ) • LT  • 0 « 0 ) SPI.(J)=0.0 

13H 

CALL  DOaLER ( SPL ) 

139 

DO  82  J=l*24 

1U0 

82 

FPLL(b» J)=5PL( J) 

141 

90 

CONTINUE 

142 

RETURN 

143 

END 

A-37 


TRAIL 


) SUBROUTINE  TRAIL (SPLL) 

2 DIMENSION  SPLL(6»24 ) t VTER< 9) t XPR( 9) » STN( lb) »DEL ( 16) 

3 2*SPL(24) 

4 COMMON  NOPTS»  NOPT  J > F ( 24 ) » ALPHA ( 24 ) » STOD » ALT  t AZMANG 1 ELVANG» 

b 2 VAC>UPLUG»n£QUIVfVEQUIV»FLAPl»FLAP2>FLAP3>FLPAGl»FLPA62» 

6 3 FLPAG3 1 TTEQ»  HNOZ>  WNOZ  t V JWNOZ»  HWN07 » WWNOZ  t ANGNOZ » ANGWNZ  t NRED t 

7 4 NR1  t NR2  * NR 3 * HSLOT * E JL t E JANG  t WF  F ? PRF tDF,7Ft TREATS  t TREAT  A t PRT t 

8 5 DTURB»BL  ADESr  TRPM»  9CTP»  SA»  ARr  THICK*  NOPTA > RC * SHP*  QPRIM*  DANIN* 

9 ft  DANOUT * XI * Y1 * VTIPT*  VJPRIM*  VJSEC*  TTPRIM* TTSECr  XCN* TTWNO?*  HD 

10  7 rALPHAl#TREATT 

11  DATA  VTER/.9l*.91*.9*.R9*.8b».H*.75*.6B>.ft2/ 

12  OATA  XPR/.5>l.»1.5»2.»2.5>3.>3.b»4.»4.5/ 

13  DATA  ( STN{ I ) * 1=1 * lb) / ,bt . 7* . 8» . 9* 1 . 1 1. 1 » 1, 2> 1. 3* 2. 1 4. » 7. r 10 . t 

14  2 20.»40.»60.»HO./  ..... 

15  DATA  { DEL ( I ) » I=l»16>/r£4.3»-12.8*r11.7>-11.2>rU.»“U.l'-3  l.A» 

16  2 -11. 9*-15.*-20.5>-25.5>-28.a*-3S.6»-42.7*-46. 9*-b0./ 

17  C 

18  C 

19  GAM=1.4 

20  TURB—O . 0 

21  IF ( NO«»TS . EQ. 3 . OR . NOPTS . EQ.  4 . OR  . NOPTS. £0 . 6 ) TIJRR=  (-4.0) 

22  R=b3«  34 

23  GC=32.2 

24  IF( N0PTS.EQ.4 ) GO  TO  3 

2b  T=TTEQ 

26  U=VEQUIV 

27  GO  TO  4 

28  3 T=TTWNOZ 

29  U=VJWNOZ 

30  4 CONTINUE 

31  TS=T-  ( (GAM-1.  )*IJ*U)/(2.*GAM*R*GC) 

32  MJ=U/SQRT(GAM*K*TS*GC) 

33  IF ( N0PTS.EQ.4)  GO  TO  12 

34  D£=DEQt  HV 

35  DH=HD 

36  GO  TO  13 

37  12  AN=WWNOZ*HWNOZ 

38  UE=S0RT(4,*AN/3,14) 

39  |)H=4,  * AN/  ( 2 • *WWN0Z+2  »*HtfNOZ ) 

40  13  CONTINUE 

41  A=4.0 

42  IF ( NOPTJ. EQ. 2 > A=4. / ( 1 . + ( 8. /3. ) * ( DE/DH-1 , ) ) 

43  C *******  DETERMINE  NO.  OF  FLAPS  S AVER  FLAP  ANG  ******* 

44  C 

4b  NFLAPS=0 

46  IF(FLAPl.GT.O.O)  NFLAPS=1 

47  I F ( FLAP2 • GT • 0 • 0 ) NFLAPS=2 

48  IF ( FLAP3, GT. 0 « 0 ) NFLAPS=3 

49  iF(NFLAPS.GT.O)  AVGFA= ( FLPAGl+FLPA62+FLpAG3 ) /NFL APS 

50  IF ( NFLA°S, EQ. 0 ) AVGFA=0.0 

51  IF(N0PTS.EQ.3.0R,N0°TS.EQ.4.0R.N0PTS.EQ.6)  GO  TO  60 

q ********************************************************* 
q **************  £g(i  COMPUTATIONS  ******************************** 

^4  c ***********************************************************«**+****' 
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55 

56 

57 

58 

59  C 

60 
61 
62 

63 

64 

65 
6b 

67 

68 
64 

70 

71 

72 

73 

74 

7b  C 
7b 

77 

78 

79 
HU 
HI 
82 

83 

84 
Hb 
86 

87 

88 
89 
MO 

91 

92 

93 

94 
4b 

96 

97 
48 
94 

100 

101  C 

102  C 

103  C 

104 

105 

106 

107 

108 


X8=Y1/TAN ( AVGFA/57. 3 ) 

XA=X1+XH 

7L=FLAP1+FLAP2+FLAP3 
IF < ALPHA1.LT. 0.0,)  GO  TO  30 
********  alphai  ge  o.o  *********** 

IF { ALPHA 1 . LE. 0. 0 ) GO  TO  28 
XC=Y1/TAN( ALPHA1/57, 3 ) 

IF(XC.GE.Xl)  GO  TO  28 
XPRIM=7L+( Xl-XC) 

XPsYl/SIN( ALPHA 1/57# 3) 

GO  TO  32 

28  PHI=180.-AVGFA-ALPHA1 

YP=SIN< AVGFA/57. 3) *XA/SIN< PH  1/57. 3) 

IF< ALPHA1.LE.0.0)  XP=XA 
5S=XP*SIN( ALPHA1/57.3) 

P=< Yl-SS) /SIN (AVGFA/57. 3) 

XPRIM32L-P 

IF( XPRIM.LE.0.0)  GO  TO  90 
GO  TO  32 
30  CONTINUE 

********  alphai  LT  0.0  ********** 

PHI=180.-AVGFA 

gamma=avgfa+ alphai 

Pp=S1N(-ALPHA1/57.3)*XA/FIN(GAHMA/57.3) 

P=Y1/SIN( AVGFA/57. 3) 

XPKIM=/L-,J-KK 

IF< XPHIM.LE.O.O)  GO  TO  90 

XP=SIN<phi/57.3)*XA/SIN(GAMMV57.3) 

32  CONTINUE 

VIPR=(1.*(  ( 0 • lb+XP)  / ( XCN*L)E*SQRT  ( 1 • +MJ)  ) ) **A ) **  ( -1 . /A ) 

V1P=V1PH*U 

XPOU=XPRIM/U£ 

VTEVIQ=GIRC( XPOOrXPRr VTER»9»t) 

VTE=VTEV1P*V1P 
GO  TO  (33>54>35)>  NOPTJ 
35  b=0.35*XPRlM+l,b*l)E 
XPDE=XPRIM/OE 
IF ( XPUE.LT .0.5)  XPDE=0.b 
DELTA=0.42*Dt./(  XPf)E)**0.7b 
GO  TO  70 

34  6-0 . 35* XPR I M+l , b*WNOZ 
^i->h=XPRIM/HNO/ 

IF( XPH.LT. 0.5)  XPH=0.5 
!)ELTA=0.42*HNOZ/(XPH)**0.  75 
GO  TO  70 
60  CONTINUE 

**************  + ****************•'*********************** 

***  * «.  *************  USB  , HY6K1D  H IBF/HLC  COMPUTATIONS  ******* 
********************************  ********************************* *^ 
I F ( ALPHA 1 . GT . 0 . O ) XP=Y1 /SIN ( ALPHA1/57, 3 ) 

IF ( ALPHAI . LT, 0. 0 ) GO  TO  90 
XW=XP*COS<  Al.PHAl/5  7,3) 

16 ( alphai. Lt.O.n.OR.NOPTS.EO. 4)  XW=0.0 
/L=FLAP1+FLAP2+FLAP3 
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109  TH£T=2.*AV0FA 

110  RC=ZL/(TH£T/57.3) 

111  RL=X1-XW+ZL 

112  IF(RL.LE.O.O)  00  TO  90 

113  W=WNOZ 

114  IF(N0PTS.EQ.4)  W3WWN0Z 

lib  HSHNOZ 

116  IF(N0PTS.EQ.4>  H=HWNOZ 

117  DELTA=H*(0.5*SQRT<RL/H)+8.*(H/RC)**2+0.2*(RC*THET/(H*b7.3)  » ) 

lib  VT£=U 

119  XF=ZL*COS< AVGFA/57.3) 

120  XLS=X1+XF 


121 

122 

123  C 

124  C 
12b 
126 
127 
12R 

129 

130 

131 

132 

133 

134 


70  CONTINUE 

************  COMPUTE  OASPL  ************ 

OASPL=bO , * ALOG1 0 < VTE > +10 . * AL0G1 0 ( 8+OELTA ) -6 . +TI  )RB 
IF ( NFLAPS. £Q, 1 ) PSI 1= ( AZMANG+FLPAG1 ) /b7. 3 
IF  ( NFLAPS.  EQ.  2 ) PSl'l=  ( AZMANG+FLPAG2 ) /b7 . 3 
IF < NFLAPS. EQ.  3 ) PS 1 1 = < AZMANG+FLPAG3 > /b7 . 3 
D IRECT=  ( COS.(  PSI1/2 • ) **2 ) * ( 0 . b+0 . 5*SIN ( ELVANG/57 . 3 ) ) 
IF ( DIRECT. LE. 0.0)  OAS°L=0.0 

IF( DIRECT. GT. 0.0)  OASeL=OASPL+10 .+ALOG10 ( DIRPCT) 

IF (OASPL.LT. 0.0)  OASPL=0.0 
DO  81  J=l»24 
SN=F( J)*DELTA/VTE 


13b 

136 

137 
13H 

139 

140 
1*+X 

142 

143 

144 


IF ( SN. S£. 0.6)  SPEC=GIRC(SN»STN,D£L»16f 1) 

1+ ( SN.LT .0.6)  SPEC=24.67*ALOG10(SN)-8.H3 
SPL ( J ) =OASPL+SPEC-20 . *ALOG10 ( STOD ) -ALPHA ( J ) * ( STOD/1  000  . > 
HI  I F ( SPL ( J ) . LT • 0 • 0 ) SPL(J)=0.0 
CALL  DOPLER ( SPL) 

DO  82  J=l>24 
H2  SPLU6» J)=SPL( J) 

90  CONTINUE 
RETURN 
END 


A-40 


AHU 


f 

I 


1 SUBROUTINE  APUtPNLAPU) 

2 COMMON  NOPTS t NOpT J * F ( 24 ) > ALPHA ( 24 ) > STOD  > ALT » AZMANG r ELV ANG t 

3 2 VAC  t DPLUG  t DEO).)  IV  » VEQU I V t FLAP1 » FLAP2 » FLAP3 » FLPAG1 , FLPAG2  > 

4 3 FLPAG3 » TTEQ » HNOZ » WNOZ » V JWNpZ t HWNOZ » W WNOZ » ANGNOZ  f AN6WNZ » NRED 

b 4 NR1 » NR2  f NR3  > HSLOT r E JL > £ JANG » WFF t PRF » DF  t TF  t TRE ATF > TRE ATA  t PRT 

6 S DTURBf  BLADES » THPM»  PCTP»  SA » A R»  THICK*  NOPTA* BC * SHP*  DPRIM*  DANIN 

7 6 DANOUTp XI t VI # VTIPT*  VJPRIM*  v' JSEC * TTPRIM, TTSEC t XCN»  TTWNOZ* HD 

« 7 r ALPHA1 * TRF.ATT 

9 IF(NOPTA.EQ.2)  GO  TO  50 

10  PNLAPU=103.0+0.11*BC-20.*ALOG10(ST0n) 

11  RETURN 

12  50  RNLAPU=106,0+0.106*SHP-20.*ALOG10(STOn) 

13  RETURN 

14  END 


x r* 

' ■i 
.’i 


a-m 


Jy  ' 


{ 
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1 SUBROUTINE  EGA(EGSPL) 

2 DIMENSION  £GSPL( 24  ) , XDISTC 19) » XAN6(  4)  ► VAL1  (4*19)  * VAL2  (4*19)  * 

3 2 VAL3 (4*19), VAL4 (4*19) * VAL5 (4*19) * VAL6 (4*19) 

4 COMMON  NOPTS*NOPTJ*F<  24)  » ALPHA  (24)  * STQD*  ALT  * AZMANG*  ELVANG* 

5 2 VAC » DPLUG*  DEQUI V*  VEQUI V , FLAP1 * FLAP2 * FLAP3 * FL^AGl . FLPAG2 * 

6 3 FLPAG3 * TTEQ*  HNOZ  * WNOZ*  V JWNOZ  * HWNOZ * WWN07*  AN6N0Z  * ANGWNZ ► NRED * 

7 4 NR1 » NR2 * NR3 * HSLOT * EJL* E JANG * WFf-  * PRF * OF * TF  * TREATF  * TKEATA » PRT * 

8 5 DTURB* HLADES*TRPM* PCTP* SA*AR* THICK* N09TA*BC*SHP* DPR IM* DANIN* 

9 6 UANOUT»Xl * Y1 * VTIPT * VJPRIM*  VJSEC* TTPRIM*TTSEC* XCN*  TTWNOZ*  HU 

10  7 * ALPHA1 * TREATT 

11  DATA  XDIST/O. 0*100. >200. ,300. *400. *500. ,600., 700. >800. *900. » 

12  2 1000. *1250. *1500. *1750. *2000. *2500. *3000. *3500. *4000./ 

13  DATA  XANG/, O.Q*1Q,0*20. 0*30.0/ 

14  DATA  (.<VAL1(NZ.*NX)  *NX=1*19)  *NZ=1»4.)/  0,0 , 0.5* 0.8* Q. 8*0.9*  1 . 0 * 

15  2 1,0*1,2*1,5*1.8*2,0*2,6*3,2>3,8*4.0*4.3*4.6*4,8*5.0*  0.0*0. 0* 

18  3 0.0*0. 0*P.0*p.0*P» 0*0* 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 1*0. 2*0. 5*1. 0*1. 2* 

17  4 1,8*  0, 0*0. 0*0. 0f0.0*0,i*0,'l*0,l»0, 2*0,  3*0. 4, 0.5*0, b*0, b*0.5* 

18  5 0.5*  0.5*  0,7*  0,8*  0,9*  0. 0*0.0* 0.0* 0. 0* 0. 0 * 0. 0 * 0.0* 0. 0*0 .0 * 0. 0 * 

19  6 0.0*6. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0.0/ 

20  DATA  ( ( VAL2(NZ,NX)  ,*NX=1*19)  *NZ=1  *4)/  0.0.0.7*1.0*1.08*1.34* 

21  2 2. 0*2. 0*2, 1*2, 3* 2, 8* 3. 0*4, 0*4^. 8* 5. 2 *8. 0*6. 8. 7. 0*7.0*  7.0* 

22  3 0.0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 1*0. 2* 0.3* 0.4*0. 6*0. 9* 1.0*1. 1*1. 2*1./* 

23  4 2. 0*2. 5*3.0*  0.0*0.04*0.08*0,16*0.2*0.2*0.2*0.38*0.48*0.64* 

24  5 0,76*0. 8*0. 84*0.88*0. .96*1. 0*1. 22*1. 42*1. 58*  0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

25  6 0.0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0.0/ 

26  DATA  ( ( VAL3(NZ*NX) *NX=1*19) »NZ=1*4)/  0.0*0.9*1.2*1.36*1.78*2.3* 

27  2 2. 3*2. 8*3. 1*3. 6*4. 0*5, 1*6. 0*6. 9*7. 5*8. 6*9. o*^. 2*9, 2*  0.0*0.25* 

28  3 0.25*0. 26, 0.33*0.5*0, 9* 1.0* 1.1 *1.1 *1.2* 1.7*1 .9* 2. 0*2. 2*2. 7* 3.0* 

29  4 3,5*4. 0*  0. 0*0. 1*0. 16*0. 32*0. 4*0. 4*0. 4*0. 56*0. 6h*0. 88* 1.02* 

30  5 1.1*1.18*1.26*1.42*1.5*1.74*2,04*2.26*  0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 

31  6 * 0. 0 * 0 .0 * 0. 0 * 0 , 0 » 0. 0 * 0 • 0*  0. 0*  0. 0 * 0 . 0*  0 . 0 * 0 . 0 * 0 . 0 * 0 . 0/ 

32  DATA  ( ( VAL4(NZ,*NX)  *NX=1*19)  *NZ=1*4)/  0.0*1.1*1.4*1.64*2.22*3.0* 

33  2 3. 1*3,5*4.0*4,5*5, 0*6. 3*7. 6*8. 8*9. 8*10.8*1) .1*11 .2*11 .2*  0.0* 

34  3 0.6 *0.5* 0.5* 0,65* 1.0 *1.2 *1.5* 1.8* 1.9* 2. 0*2. 4 *2. 8 *3. 1*3. 3 *4. 0*4. 3 

35  4 *5. 0*5. 5*  0.0*0. 12*0. 24*0. 48*0. 6*0. 6*0. 6*0. 74*0. 84*1. )2*1. 28* 

36  5 1 .4*1, 52*1, 64*1. 88*2. 0*2. 26*2. 66*2. 94  * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 

37  6 *0.0*0. 0*0, 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0.0/ 

38  DATA  ( (VAL5(NZ*NX) *NX=1»19) *NZ=1*4)/  0 . 0 * 1 . 3 * 1 . 6 * 1 . 92  * 2 . 68, 3. 2 * 

39  2 3. 6*4. 2*4. 9, 5. 5*6. 0*7. 8*9. 0*10. 2*11. 2*12, 3*13. 0»H. 5*13.8*  0.0 

40  3 *0.75*0,75*0.75*0.98*1.5*1.9*2.1*2.5*2.8*3.0*3.7*4.0*4.3*4.8* 

41  4 5. 3*6. 0*6. 5*7.0*  0 . n » 0 , 18 * 0 . 3? * 0 . 64* 0 . 8* 0 . 8 * n . 8* 0 .92* 1 . 02 * 1 . 36 

42  5 *1.54*1. 7*1, 86*2. 02*2. 34*2. 5*2. 78*3. 28*3. 62*  0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

43  6 0.0*0. 0*0. 0*0. 0*0, 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0. 0*0.0/ 

44  DATA  ( ( VAL6(NZ*NX) *NX=1*19) *NZ=1*4)/  0 . 0 * 1 . 6* 1 . 8* 2 . 2 * 3. 1 * 4 . 0 * 4. 5* 

46  2 5,1*5.8*6.4,7.0*9.1*10,8*12.0*13.0*14.0*14.6*16.1*15.2*  O.n* 

46  3 1.0*1. 0*1. 0*1. 3*2. 0*2. 5* 3. 0*3. 3* 3. 8* 4, 1*4. 9* 5. 3* 6, 1*6. 3* 7. 1*7. 9, 

47  4 8. 3*9.0*  0.0*0. 2*0. 4*0. 8*1. 0*1. 0*1. 0*1 .1*1. 2*1. 6*1 .8*2. 0*2. 2* 

48  5 2, 4*2. 8*3. 0*3. 3*3. 9*4. 3*  0.0  * 0 . 0 * 0. 0 * 0 .0 » 0. 0 * ” . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 

49  6 0. 0*0. 0*0. 0*0, 0*0. 0*0. 0*0. 0*0. 0*0. 0*0.0/ 

50  GUISTSSQRT ( ST0D**2~ ( ALT-4 , 0 ) **2 ) 

61  ANGLE=AS1N( (ALT-4. 0)/STOD) 

52  UOIST=96,0/SIN< ANGLE) 

53  DISTSAMIN1 (STOD*UDIST) 

54  DO  10  1=1*24 


A-A2 


1 


I 


ESA 


f ' 


t 


r i 


55  10  £GSPL<  I)?=0.0 

56  ANG=ANGLE*57. 2957795 

b7  IF ( ANG , GT«  30 • 0 ) GO  TO  30 

58  DO  20  1=1.24 

59  IF(F(I).LT.75.0)  EGSPU I ) =DTAB2 < DIST> ANG. XDIST. XANG. 19.4. 1 . 1 ► 

60  2 VAL1 .4. IERR) 

61  IF(F(I). GT. 75.0. AND. F< I). LT. 150.0)  EGSPL{ I ) =DTAB2 ( DIST. ANG. 

62  2 XDIST. XANG.  19.4.1.1 » VAL2. 4..IERR) 

63  IF( F ( I ) .GT.  150.0  * AND.F ( I ) . LT.300.0 ) EGSPU  I ) =DTAB2  ( DIST.  ANG* 

64  2 XDIST.XANG. 19.4.1.1, .VAL3.4. IERP) 

65  IF(F( I) .GT, 300.0. AND. F( I) ,LT. 600.0)  EGSPU I ) =DTAB2 ( DIST. ANG. 

66  2 XDIST » XANG. 19.4.1.1.  VAL4. 4. I ERF) 

67  IF(F( I) . GT. 600.0. AND. F( I) .LT. 1200.0)  EGSPL5 I ) =DTAB2 (DIST . ANG. 

68  2 XDIST. XANG. 19.4.1.1. VAL5. 4. IERK ) 

69  IF ( F( I ) »GT .1200.0)  EGSPL( X ) =UTAB2 ( DIST. ANG. XDIST. XANG. 19.4. 

70  2 1. 1.VAL6.4. IERR) 

71  20  CONTINUE 

72  30  RtTURN 

73  END 
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SUBROUTINE  GRE(GHSPL) 

DIMENSION  6RSPL<24> 

COMMON  NOPTS,NOPTJ,  F (24) , ALPHA ( 24 ) »STOD, ALT  » AZMANG, ELVANG, 

2 VAC , DPLUG, DEQUI V, VEQUI V, FLAP1 , FLAP2 , FLAP3,FLUAG1 , FLPAG2 , 

3 FLPAG3,TT£Q,HNOZ,WNOZ,VJWNOZ»HWNOZ,  WWNOZ, ANGNOZ, ANGWNZ, NRtD, 

4 NR1 , NR2 , N’<3 » HSLOT  , E JL  > £ JANG  , WFF  , PRF  , DF , TF  , TREATF , THE  A TA  , PRT, 

5 DTURB, BLADES, TRPM, PCTP»SA,AR, THICK, NOPTA»BC,SHP,DPRIM, DANIN, 

6 DANOUT, XI , VI , VTIPT, VJPR IM, VJSEC, TTPRIM, TTSEC, XCN, TTWNOZ, HD 

7 , ALPHA1 , TREATT 

GD I STSSORT t SJ0D**2- ( ALT-4 . 0 > **2 ) 

IF ( ELVANG, 6T .0.3)  P0RD0=4, TGDIST/ ( ALT+4.0 ) 

IF ( ELVANG. LT • 0 « 3)  PORDC=GDIST/2.0 
P0RDS=6DIST-P0RD0 

RD=STOD  , 

RR=SRRT ( 4. **2+P0R00**2 ) +SQRT ( aLt**2+P0RDS**2 ) 

IF ( ELVANG. GT, 89. 8. AND. AZMANG. GT . 89 . 8, AND. AZMANG. LT .90.3)  RRSRU+B . 0 

Z=RR/RD 

OK=RK-RO 

C=1U6.0 

ALSO. 72870 7903 

HETA=6, 324986092 

UO  10  1=1,24 

XLAMDA=C/F( I) 

AI=AL*DR/XLAMDA 

H1=BETA*DR/XLAMDA 

GHSPL(  I)=10.VALOGi0a.+l./ZV*2+U2./Z)T{SlN(  AI > /AI ) *COS< HI ) ) > 
IF(GRSRL(  D.LT.-30.0)  GRSPL(  I ) =-30.0 
10  CONTINUE 
RETURN 
F.ND 


SHIELD 


1 SUBROUTINE  SHIELD ( QELSPWl SO  > BH  r OD » F » ELVANG ) 

2 DIMENSION  F ( 24 ) t DELSPL ( 24 ) 

5 HEAL  N 

4 C 

5 C SO  r DISTANCE  FROM  SOURCE  TO  HARRIER  OR  WING  (FT) 

6 C 

7 C BH  s BARRIER  HEIGHT  (FT) 

8 C 

9 C OD  s DISTANCE  FROM  HARRIER  TO  OBSERVER  (FT) 

10  C 

11  C 

12  C CALCULATE  ESTIMATE  OF  WING  SHIELDING  EFt-ECT 

13  C 

14  CONST=  ( SD* ( SORT ( 1 # + ( ( BH*8H) / ( 5D*SD)  ) )-l.  )+OD*(SQRT(  l.  + ( ( BH*BH)  / 

lb  2 (00*00) ) )-i.) )/567,5 

16  00.10  I“l>?4 

17  N=F(I)*CONST 

18  IF(N.L£.10.0)  AE3=10.*ALOG10(N)+10. 

19  If (N.GT.10.0)  AE3S20. 

20  DELSPL ( I ) =AE3*5IN ( ELVANG/57. 295779b ) 

21  IF<UELSPL(1) .LT.O.O)  D£LSPL( I)=0.0 

22  10  CONTINUE 

23  RETURN 

24  END 
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FWDSPD 


i 


I 

i 


lu"! 


4 


i 


1 

2 

3 

4 
b 
6 
7 
ft 
q 


10 

11 

12 

13 

14 

lb 

16 

17 

IB 

19 

20 

100 

21 

22 

200 

23 

24 

2b 

26 

300 

27 

28 

400 

29 

500 

30 

31 

32 

33 

bbO 

34 

3b 

560 

3b 

37 

3H 

39 

600 

40 

601 

41 

42 

43 

SUHROlJTINt  FWDSPD  ( DELDHF ) 

DIMENSION  XLS81  ( 3 ) , XLSB2  ( 3 ) » XLSH3  ( 3 ) , Xt  JStJ  ( 3 ) ,XAW(2»3)  * XELV(3>  , 

2 XFLP(2> 

COMMON  N0PTS,N0pTJ,F<24>  , ALPHA (24)  , STOD,  ALT » AZMANG* ELVANG, 

2 VAC , DpLUG, DEQUI V * VEOUI V » FLAP1  ,FLAP2»  FLAP3 » FLpAGl * FLPAG2 , 

3 FLP  AG3  , TTEQ  , HNOZ,  WNOZ,  V JWNOZ  , HWNOZ  , WWN07 » ANGNOZ  , ANGWN? » NRED  , 

4 NR1 , NR2 , NR3  , HSLOT , £ JL»  E JANG,  WFK , PRF , OF  » Tr  , THE ATF , TREATA , pRT , 

5 D7URB, BLADES, TRpM, PCTP, SA, AR  , THICK, NOPTA  , BC  , SHp,  DpRIM, DANIN, 

'>  DANOUT  , XI  » Y1 , VTIpT,  V JPRIM»  VJSEC , TTPPIM,  TTSEC  , XCN,  TTWNOZ,  HD 

7 , ALpHAl , TREATT 
DATA  XLSB1/1 .3,4.2 , 6, 1/ 

DATA  XLSR2/0.25* 3. 0*5. Ob/ 

DATA  XLSB3/-n.8,l. 8,4.0/ 

DATA  XIISB/0.0,0.9,  J..8/ 

DATA  < (XAW(NZ,NX.)  ,NXS1,3>  ,NZ=1,2)  /0.0,1.0»1.8,0.0»-1.0,-1.B/ 
DATA  XELV/0. 0,30.0 ,90.0/ 

DATA  XFLP/35. 0,65.0/ 

POWER=0.0 

GO  TO  (100,200,400,100,300,400) ,NOpTS 

pOWER=b.O 

GO  TO  500 

IF ( FLAP1 . GT. 0 . 0 ) POWERsGIRC ( ELVANG , XEL V , XLRH1 , 3 , 1 ) 

IF ( FLAp2 . GT. 0, 0 ) POWERrGIRC ( ELVANG , XELV, XLSB2 , 3 » 1 ) 

IF  ( KI.AP3.WT .0.0)  POWER=GIRC( ELVANG,  XELV , XLSR3 ,3,1 ) 

GO  TO  500 

HOWER=DTAH2 ( ELVANG*  E JANG, XELV , XFLP , 3 , 2 , 1 , 1 , XAW , 2 , IERR ) 

GO  TO  bOO 

POWERSGIRC ( ELVANG, XELV, XUSB, 3, 1 ) 

IF(N0pTS.ER,4.0R.N0PTS.E0.b)  GO  TO  5b0 

ANGLE=ANGNOZ 

VEL=VtQDIV 

GO  TO  560 

ANGLE=ANGWNZ 

V£L=VJWNOZ 

CONTINUE 

IF (VAC.GE.VEL)  GO  TO  600 

DELDHF=10 . *POWER*ALO«10 ( 1 . -VAC*COS ( ANGLE/57 . 2p277pb ) /VEL) 

RETURN 
WRITE ( 6,601 ) 

FORMAT (1H1*5X, * RELATIVE  VELOCITY  NOT  ACCEPTABLE  TO  SUBROUTINE*, 
2 * FWDSpD* ,/,lHl) 

RETUWN 

END 
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DOPLER 


COPY  AVAILABLE  TO  DOC  DOES  NOT 
PERMIT  FULLY  LEGIBLE  PRODUCTION 


1 
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3 

4 
b 
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8 
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10 

11 

12 

13 
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17 

18 

19 

20 
21 
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23 

24 
2b 
26 

27 

28 

29 

30 

31 

32 

33 

34 
3b 

36 

37 

38 

39 

40 

41 

42 

43 


SUBROUTINE 
DIMENSION* 
REAL  MAcP 


JWLERfS 

15PLS<24>  » 


SPLS) 

XSPL<30) 


COMMON!  NOP-TS#  NOpTJ»  F ( 24  ) # ALPHA  < 24  > » STOD#  ALT » AZMANG#  ELVANG# 

2 V^Pi»,DPL1  JG# DEQUIV#  VEQUIV#  FLAP1 » FLAP2#  FLAP3#  FLPAG1  # FLPAG2# 

3 FLPAG3#  TTEQ#  HN07»  WNDZ#  VJWNOZ#  HWNOZ#  WWNOZ#  ANGNOZ#  ANGWNZ#  NR£D» 

4 NR1 1 NR2 # NR3 # HSLOT  > £ JL » EJANG# WF F # aRF r DF  # TF » TREATF » THE ATA  » URT # 
b DTURR#  BLADES# TRPM» PC Tp # SA»  AR#  THICK#  NQuTAf  BC»  SHP#  DpRIM#  DANIN# 

6 DANOUT# XI ► Y1 » VTI^T#  V JPRIM#  VUSEC#  TTPRIM, TTSEC # XCN#  TTWNOZ#  HD 

7 » ALpHAl # TREATT 
NSHIFT=0 


DO  10  1=1 #24 
10  XSPLf I+3)=SPLS( I) 
DO  20  I=3#l#~l 


20  XSPL  ( I ) =2  * *XSPL  ( I + D-XSRU  1+2) 
' *bo  30  1=28.30 

30  XSPL ( I ) =2»*XSRL ( 1-1 ) -XSPL! 1-2) 
MAC=VAC/1116.0 


D=1 . 0/ ( 1 . 0-MAC*COS ( AZMANG/57 , 2957795 ) ) 
IF(0,LT.1,0>  GO  TO  40 
IF <I),LT.  1.122462.)  .GO.  TO  80 

IF (D.GE. 1.122462. AND. D.LT.l. 41421 M NSHIFT=1 
IF  ( D. 6E.  1. 4142J.3.  AND. D.LT,  1.78179  7)  NSHIFT=2 
IF ( n.GE. 1.781797. AND. D.LT. 2. 244924)  NSHIFT=3 
IF(D.GE. 2. 244924)  GO  TO  70 
GO  TO  bO 

40  IF  (D.GT. 0,890899.)  GO,  TO  50 

IF (D.LE.O, 890899. AND.O.GT. 0.70710 7)  NSHIFT=- 
IF(D.LE. 0.707107. AND. D.GT. 0.561231)  NSHIFT=- 
IF  (D.LE.0.561231.  AND, D.GT •0,44544'-;)  NSHIFT=- 
IF(D.LE. 0.445449)  GO  TO  70 
50  DO  60  1=4# 2 7 

SPLS ( 1-3) =XSPL< T+NSHIKT) 

60  CONTINUE 

DO  6b  1=1 #24 

IF(SPLS( I) .LT.O.C)  SPLS(I)=0.0 


1 

2 

3 


6b  CONTINUE 
RETURN 


70  WRITE ( 6# 601 ) D 

601  FORMAT (1H1»5X» ’THIS  VALUE  OF  D = *»Elb.l0#’  IS  NOT  ACCEPT AHLt * » 
2 ♦ FOR  SUBROUTINE  UOPLtR*  # / » 5X#  * THEREFORE  NO  SHIFT  WAS  USED*) 
RETURN 
END 
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REDUCE 


1 SUBROy T I NE . REDUCE  < DELP } . 

2 DIMENSION  XPR.<9)  »XHRD(9)  ,XLIN<9)  »XVEL(9) 

3 COMMON  NOPTS#NOPTJ»F(24)#^LPHA(g4) *STOD» ALT* AZMANG»ELVANG* 

4 2 VAC * DPLUG* OFQUI V*  VEOUIV * FLAP'l » FLAP2 » FLAP3 * FLPAGl # FLPAG2 » 

5 3 FLPAS3 » TTEQ * HNOZ  * WNOZ * V JWNOZ » HWNOZ * WWN07 » ANGNOZ  * ANGWNZ » NRED  * 

6 4 NR1 > NR2*  NR3*  HSLOT  » EJL*  E JANG*  WFF » PRF * DF  * TF  * TRE ATF * TRt  AT A * PRT » 

7 5 OTUKB » BLADES* TRPM*  PCTP  * SA * AR * THICK*  NO^TA » BC  * S HP*  DRR  1 M*  DANIN* 

8 8 DANOUT*  XI  * Y1 ♦ VTIPT*  VJPRIM* VJSEC* TTPRIM* TTSEC* XCN*  TTWNOZ*  HD 

9 7 *ALPHA1* TREAT! 

10  DATA  XPR/1. 0*1. 5*2. 0*2. 5*2. 6*2. 7»2. 8*2. 9*3.0/ 

11  DATA  XHRb/4,0*0,0*-4.5»-9.5*-10.5*-11.0*-11.5*-12.0*-12.3/ 

12  OATA  XLIN/0.0»-5.0»-10.C*-15.0*'*16.0»-17.0*-18.0*-18,7*-19.5/ 

13  DEL1=0.0 

14  DEL2=0.0 

15  D£L3=0.0 

16  GOTO  (90,0*100*200*900*300*200) *NOPTS 

17  100  IF(NR1.N£,1,)  GO  TO. 110 

18  IF(FLAP1,GT,0.0)  S=l. 

19  IF<FLAP2,GT.O.O)  5=2. 

20  IFCFLAP3.GT.0.0)  S=3. 

21  0£Ll=-(803.Bl/VcGUlV>*<3.0-S>*SIN(ELVANG/57.2957795) 

22  110  IF ( NR2.NE. 1 ) GO  TO  120 

23  DEL2=-(0.5+SlN(ELVANG/57. 2957795) ) 

24  120  IF(NR3.NE.l)  GO  TO  900 

2b  DEL3=-(2.0*HSLOT*12.0*SlN(ELVANG/57. 2957795) ) 

26  GO  TO  900 

27  200  IF ( NR2, NE. 1 ) GO  TO  210 

28  DEL2=-2.0*(0.5+SIN(ELVANG/57, 2957795) ) 

29  210  IF ( NR3. NE, 1 ) GO  TO  900 

30  DEL3=-4 . 0*HSLOT*12, *SIN  ( ELVANG/57 . 2957795 ) 

31  GO  TO  900 

32  300  DO  310  1=1*9 

33  XVEL( I ) =109,595*SQRT ( TTWNOZ* ( 1 .-1 . / ( XPR ( I ) **«2H6) ) ) 

34  310  CONTINUE 

35  320  IF(NRl,NE.l)  GO  TO  330 

36  D£L1=GIRC( VJWNOZ* XVEL* XHRD* 9* 1 > 

37  GO  TO  900 

38  330  IF ( NH2.NE* 1 ) GO  TO  900 

39  DEL2=GIRC(VJWN0Z»XVEL»XLIN*9* 1) 

40  900  UELP=D£L1+UEL2+D£L3 

41  RETURN 

42  END 
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PNLKEV 


1 SUBROUTINE  PNLRE V ( SPL * PN » NOCT ) 

2 REAL  SPL (24)  *L(5*24)»M(4*24)»LL(5*8)*MM(4*8) 

3 DATA  (<L(I*J>*J=1»24)*I=1*5)/ 

4 +49. 0*44. 0*39. 0*34. 0*30. 0*27. 0*24. 0*21.0 '18.0*16.0*16.0*16.0 

5 1*16. 0*16. 0*15, 0*12. 0*9. 0*5. 0*4. 0*5. 0*6, 0*10. 0*17. 0*21 .0* 

6 255. 0*51. 0*46. 0*42. 0*39, 0*36. 0*33. 0*30. 0*27. 0*25. 0*25. 0*25.0* 

7 325. 0*25.0 *23. 0*21, 0*18. 0*15. 0*14, 0*14, 0*15. 0*17.0*23. 0*29.0* 

8 464. 0*60. 0*56. 0*53. 0*51. 0*48. 0*46, 0*44.0* 42. 0*40. 0*40. 0*40.0* 

9 540 . 0 > 40 . 0 * 38 , 0 * 34. 0 * 32 . 0 * 30 . 0 * 29, 0 * 29, 0 » 30 . 0 * 31 « 0 * 37 . 0 * 41 . 0 » 

10  691. 01 *85. 88* 87. 32* 79. 85* 79. 76* 75. 96* 73. 96 *74. 91 *94. 63* 100. *100.* 

11  7109. *100. *100. *100. *100. *100. *10". *100. *100. *109. *109. *44. 29* 50. 7 

12  8* 52. 0 » 51. 0»49.0 #47.0* 46.0»45. 0*43. 0» 42. 0*41.0 r4p. 0*40. 0*4p.0» 

13  940. 0*40. 0*38. 0*34. 0*32. 0*30. 0*29. 0*29. 0*30. 0*31. 0*34. 0*37.0/ 

14  DATA((M(I»J)*J=1*24)».I=1*4>/ 

15  +.07982*  .06816*. 06816*  .05964*10*. .053013*. 0b9640*. 053013,* 

16  1.053013*. 047712*. 047712*,.053013». 053013*. 06816*. 0796?*  .05964* 

17  2.058098* ,058098* .052288* ,047534*. 043573* .043573* .040221* .037349, 

18  37*. 034859*  .040221»’.037349,4*. 034859*  ,037349*  .037349*  .043573* 

19  4.043478* .040570* .036831 *.036831* .035336* .033333* .033333* .032081* 

20  5. 030675* 6*. 030103* 7*. 02996* .042285* .042285* 15*. 0301"3* 9*. 02996/ 

21  OATA( <LL< I* J> * J=l*8) * 1=1*5)/ 

22  144.0*30.0*21.0*16.0*16,0*9.0*5.0*17.0* 

23  2bl. 0*39. 0*30. 0,25. 0*25. 0*18. 0*14. 0*23.0* 

24  360. 0*51. 0*44. 0*40. 0*40. 0*32. 0*29, 0*37.0* 

25  485. 88, 79. 76*74. 91* 100. *100. *100. *100. *44.29* 

26  851. 0*46. 0*42. 0*40, 0*40. 0*32. 0*29. 0*34.0/ 

27  DATA  ( (MM(  I,J)  » vJ=l » 8)  ♦ 1=1 » 4 ) / 

28  1.068160*6*. 053013*. 079520* 

29  2. 058098*. 043573 *.037349* 2*. 034859, ,037349*. 034859*. 037349* 

30  3.040570* .035336* ,032051*2*. 030103*2*. 029960* .042285* 

31  45*. 030103*3*. 029960/ 

32  IFIN0CT.EQ.2)  SO  TO  17 

33*  C NOCT=l  OCTAVE  BAND  INPUT 

34  C NOCT=2  ONE-THIRD  OCTAVE  BAND  INPUT 

35  SUM1=0.0 

36  SUM2=0.0 

37  UO  26  1=1*8 

38  IF(SPL(  I)  .GE.LLU*  ID  SO  TO  20 

39  ANOY=0.0 

40  SO  TO  21 

41  20  IF<SPL< I) .GE.LU2* I> ) SO  TO  22 

42  ANOY=.1*10.0**(MM(1*I)*<SPL(I)-LU1*I)  ) ) 

43  SO  TO  21 

44  22  IF(SPL( I) .GE.LL(3*I) ) GO  TO  23 

45  ANOY=10.0**(MM(2* I)+<SPL( I)-LL<3* I) > ) 

46  BO  TO  21 

47  23  IF(SPL<  I)  .GE.LU4*  I)  ) GO  TO  24 

48  ANOY=10.0**(MM(3* I ) * < SPL ( 1»-LL(3* I) ) ) 

49  go  ro  21 

50  24  IF(SPL( I ) .GT.150.0)  GO  TO  25 

51  ANOY=10.0**(MM(4* I)*<S9L( I)-LL(5* i)  )) 

52  SO  TO  21 

53  25  WRITE(6*602) 

54  602  FORMAT(///*10X* »SPL  EXCEEDS  150  DH*»///> 
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b5 

60  TO  101 

b6 

21 

I F ( ANOY • LE  . SUM2 ) 60  TO  26 

b7 

StJM2=AN0Y 

58 

26 

SUM1=SUM1+AN0Y 

b9 

IF(SUMl.LT.O.Ol)  GO  TO  30 

60 

IF(SUM2.LT.0.01>  60  TO  30 

61 

IF ( SUM2 • GT.  SUM1 ) 60  TO  30 

62 

PN=40 • 0+33 . 22* AL061 0 < St  JM2+ , 3*  ( St  IM1  -St M2 ) ) 

63 

101 

RETURN 

64 

17 

SUM1=0.0 

6b 

SUM2=0.0 

66 

DO  16  1=1 t 24 

67 

IF(SPL<I).6£.L<i»i> ) 60  TO  10 

66 

ANOYSO.O 

69 

60  TO  11 

70 

10 

IF(SPL( I ) ,6£.L(2» I) ) 60  TO  12 

71 

ANOY=.1*10.0**(M(1» I)*(SPL< I)-L(l» in  > 

72 

GO  TO  11  

73 

12 

IF(SPLU)  tGE.L(3»  I)>  GO  TO  13 

74 

ANOY=10»  0** ( M(2» I ) *( SPL( I }-L( 3» I M ) 

7b 

GO  TO  11 

76 

13 

IF(SPL(I).GE.L(4>I) ) GO  TO  14 

77 

ANOY=10.0**<M(3»I)+(SPL(I)-L(3fI)  > ) 

78 

GO  TO  11 

79 

14 

IF ( S^L( I ) #GT. 150. ) GO  TO  lb 

80 

ANOY=1C.O**(M<4» I)*(SPL( I)-L(5» I) ) ) 

81 

GO  TO  11 

82 

lb 

WRITfc.  ( 6r  601 ) 

83 

601 

FORMAT ( ///» 10X»  *SPL  EXCEtDS  lbO  DB»»///) 

84 

GO  TO  100 

8b 

11 

IF ( ANOY, LE, SUM2 ) GO  TO  16 

86 

SUM2=AN0Y 

87 

16 

SUM1=SUM1+AN0Y 

88 

IF(SUMl.LT.O.Ol)  GO  TO  30 

89 

IF (SUM2.LT. 0.01)  GO  TO  30 

90 

IF ( S' JM2. GT . SUM1 ) GO  TO  30 

91 

PN=40 . 0+33 . 22*  AL0G1 0 ( SUM2+ , 1 5*  ( St  Ml  -St  IM2 ) ) 

92 

GO  TO  100 

93 

30 

PN=0. 0 

94 

100 

RETURN 

9b 

tNI'J 
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TONE 


1 

SUBROUTINE  TONE ( SPL*  PN»  PNLT) 

2 

DIMENSION  SPL ( 24 ) * SS ( 25 ) » SBAR ( 25 ) » SPL*3 ( 

3 

CMAX=0.0 

4 

SS(3>=0.0 

5 

SPLP(2)=SHL(2) 

6 

SPLP(3)=SPL(3) 

7 

DO  60  1=4 f 24 

8 

SPLHU)=SPL<  I ) 

9 

SS(I)=SPL( i)-SPL< 1-1) 

10 

IF ( AHS(SS< I)-SS( 1-1) )-5.0)  60*60* 10 

11 

10 

IF ( SS( I ) ) 30*30*20 

12 

20 

IF(SS( I)-SS( 1-1) ) 60*60* 80 

13 

30 

IF(SS(I-1))  60*60*40 

14 

40 

SPLP( I-l)=0.b*(SPL( I-2)+SPL( I) ) 

lb 

00  TO  bO 

16 

b0 

SPLP ( I ) =0 • b* ( SPL ( 1-1 ) +SPL( 1 + 1) ) 

17 

IF ( I.EQ.24)  SPLP(24)=SPL(23)+SM25) 

18 

60 

CONTINUE 

19 

SS( 3)=SPL^(4)-SPLP(3) 

20 

DO  80  1=4*24 

21 

SS( I)=SPLP< I ) -SPLP ( 1-1) 

22 

80 

CONTINUE 

23 

SS(2b)=SS(24) 

24 

DO  90  1=3*23 

2b 

SHAH ( I)=»3333333*( SSI I ) +SS( I+1)+SS( 1+2) 

26 

90 

CONTINUE 

27 

SPLP(3)=S°L(3) 

28 

DO  100  1=4*24 

29 

S^LP( I)=S^LP( 1-1 ) +S8AR( I-l) 

30 

100 

CONTINUE 

31 

DO  ISO  1=3*24 

32 

F=SPL( I ) —SPLP { I) 

3»' 

TF ( F-3 • 0 ) lbO *120*110 

34 

110 

IF ( F“20 • 0 ) 120 *130*130 

3b 

120 

C=F/6.0 

36 

00  TO  140 

37 

130 

C=3. 333333 

38 

140 

IK  < 1. 6E, 11. AND. I.LE.21)  C=2 ,*C 

39 

IF ( C # UT. CMAX ) CMAX=C 

40 

lbO 

CONTINUE 

41 

PNLT=PN+CMAX 

42 

HETUHN 

43 

END 
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F UNCT3  JN  3 IK C ( AU 0 » X * f » N X 1 1") 

2* 

L 

AlTKlf  1NTEFPCL A7I0N 

3 * 

r 

ARGrlf.'JLPE'NOEfiT  AK3UKLNT 

4 * 

(. 

X - INCE  P ENDE  NT  TCHLE  ' 

5* 

YrDEPf  NDEN'T  TA3LE 

&* 

C 

NX-NU^ER  VALVES  X TAELE 

7* 

(' 

IP  -1  FPST  OKJER  IN  Tf  RPCLA’I  JM 

3* 

L 

IC -2  St  CON 0 CF  CLf*‘  INTESPCL*  TICF. 

<3* 

DIMENSION  Xtl)«Ytl)*xy(4)*vY(4> 

ir* 

IEM'rFX-IC+l 

11* 

TF  l Xt  1 ) - X ( 2 ) ) iltf  >0,2>» 

12  * 

A^CFf.Pl  Nb  { P2t  F 

13* 

1-1 

00  15  irl , IEN3 

14* 

IF  ( X ( I ) - Ar’0  I IF » 2H » 2li 

15* 

15 

CONTINUE 

1G* 

1 3 

IP-NX-IC 

17* 

IFX=m 

IS* 

po  j r u( 

IS* 

2'i 

00  2 5 Ul.ICNS 

20* 

IF  ( X ( I ) - AO  0 l 7 1 • ♦ 2!»  LE 

21* 

25 

CONTINUE 

22* 

cr  rr  ic 

? 3* 

J'l 

lc<  IS-iJiSt  J5»  -'»U 

24* 

>J  . ' 

IF  { I - 1 ) 2B » 3t"  » 27 

25* 

35 

n=i 

2C.* 

re  t t 4*- 

27* 

3 7 

I3=I-T0 

2 "** 

6 C TC  4 f 

21* 

4’l 

IFl  r-2  )4lf 41, 42 

3 0* 

41 

lExrr 

31* 

7 0 TO  ?C> 

22* 

4 ’ 

rrx  *i 

33* 

n n 7 •)  < 7 

34* 

4 5 

sc  c i :-iiu 

3o* 

XX(  T»rx(  i!U-4 KC 

2f»* 

v Y ( 1 1 -Y  (lo> 

37* 

",  * 

13= r 3+ 1 

3 3* 

oc  cr 

32* 

CM 

rr.(  r » - x y (i*i  )-xx  ( ^ j 

40* 

re  7:  l=lt? 

41* 

7'1 

FF(  I)=tt  (I)*a  (i*I) 

42* 

Of  S'  1=1.* 

4 3* 

I):(YV|il*xXlT  + l)-YYlT*,,)«XX 

44* 

i*  ( ::-i  him.,  ii.(  • °r 

4b* 

j1’ 

C°NTlNUr 

4- * 

5C  5T  irit’J 

47* 

j.) 

EE<  i)-(  XX  ( 1*2  ) * i.F  ( 1)  - Xv  ( T)  * (. 

4 ** 

IF  ( IE X ) U.l  J t 

4 ° * 

> c 

rr(  1 > - ( t.  i.  ( 1 ) * E r C 2 ) )/2. 

5:  * 

G I h C - F E (1 ) 

51* 

RETURN 

C * 

ff  2 

( . * i ) ) / f r t : \ 
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FUNCTION  DTAS2  ( XX  »ZI.X*  Zt  MX  *X2  t KX  »KZ  ♦ Y » M»  TE.RR  > 

C OTAS  OCUbLE  INTERPOLATION 

C XXrVALUt  T’J  9£  IN  7£RPG  LATEU  X riPFCTICN 

C 71  -VALUE  TC  8£  INI  ERFO  LATEb  Z C.TREC710N 

C X-  X TA2LE 
C 7-  7.  TABLE 

C NXr,NUM9£R  y VALUES  IN  TABLE 

c nttpupbep  /.  values  in  table 

C KXtl  IF  LINEAR  INTERPOLATION  v 01°.  LOTION 
C -2  IF  CURVILINEAR 

2 KZrl  IF  LINEAR  IN  T£Cp  2 LA  T IS  f)  7 JITLCTION 
0 =2  IF  CURVILINEAR 

? y:  r ar°ay 

C ?•*=  ROW  CIM  f N'SIGN  Y ARE'  AY 
C IcRR-1  SUCCESSFUL  RETURN 
C =2  UNSUCCESSFUL  RE  TURF 

DIM  EN  S I'JN  X ( 1 ) 1 1 (1 ) ♦ Y < 1 ) » X ?.(  4>  ♦ <:  2 ( 4)  » v 2 ( I = ) t " NX  (?  ) * I A*  ( 2 ) t 
2 IS  V C 1 ) » IXIKT (2) 

Z2  = 7T 
INXtll— fX 
INXt  7)=NZ 
I K X f 1 1 - KX 
IK  X(  ?)=X  3 

or  2fr  1=1.2 

if t inx(  i )-mjnn.i**u»ir? 


2£* 

K 

IFIMUl.  11*12 

27* 

11 

IFt  X(  1>-X(2))2U*  ICdli*  ■ 

23* 

r 

ASCENDlNb  C.fCtP 

29* 

?•! 

00  21  U - 1 ♦ N X 

3!'* 

IF ( X ( v ) -XX  J 21*  4 f *51 

U* 

*21 

CCNT1NU* 

22* 

r 

VALUE  dlYCN'C  EM  OF  ti 

3 3* 

J? 

ISVf  I)  =3  NX  1 1) -IK  X(  II 

3 4* 

2? 

IXlNT  tll-lKX (1) 

25* 

GO  TO  isn 

75* 

* 

IF  C7  lll-Z  (21  ) 25  * 1 I'll  . . 

37* 

*>c 

W V 

00  26  J - 1 * N Z 

36* 

IFCZCv)-Z?)2E.4f»EU 

39* 

CONTTMJt 

41'* 

GO  TC*  22 

41* 

r 

L)LSCc.NL)INO  o.ruer 

42* 

3r> 

OC  ?1  =1  * NX 

43* 

IF(  X(  J 1-  xy  ) 5(J  * 4i!  ♦ 31 

44* 

Z1 

CCNTINUfc 

4 S * 

CC  TO  22 

46* 

3 5 

OC  3»‘  J - 1 » N Z 

47* 

IFf  3(  J > ~ll ) 5'i,  UN  »36 

48* 

3 F 

CCNTINUf 

43* 

GO  TO  22 

60* 

r 

VALUE  E'UAL  V ALU1  »N 

51* 

4H 

IXINTf  I ) -11 

52* 

ICV(i)-x- 

63* 

00  TO  16P 

54* 

IRK- 1)U*  *61*  71' 

'1 


DIRECTION 


direction 


FUNCTION  OTAS2  < XX »ZI. X * 2 1 NX  * N2 # KX »K2 » Y » M» TERR > 
DT  Ay  DOUBLE.  INTERPOLATION 
XXrVAL'Jt  TJ  BE  INTERPOLATED  X OIPFCTION 
? I - V AL  U t TC  BE  INTERPOLATED  Z CIPECTION 
X-  X TABLE 
7-  7 TABLE 

NX-. NUMBER  v VALUES  IN  TABLE 
f'T-NUNBEP  /.  VALUES  IN  TABLE 
KX-1  IF  LINEAR  INTERPOLATION  v ‘DIRECTION 
"2  IF  CURVILINEAR 

KZrl  if  LINEAR  INTERPOLATION  ? DIRECTION 
= 2 IF  CURVILINEAR 
Yr  Y AR°9Y 

ROW  CItm.'SICN  y array 
I ERR- 1 SUCCESSFLL  RET  LRN 
= 2 UNSUCCESSFUL  RETURN 

OIMENSI'JN  X(l) tZ <1> ♦ Y(l) »X2<4>  *z2<4>  ♦ V 2 ( JL  = ) , 'NX 
2 IS V t 2 ) * IXINT ( 2 ) 

L7.-71 
INXdlrr.X 
TNXt  2)=,NZ 
IKX ( 2 J -BX 
TK  X( ?)=*  ? 

nr  2 r t<  in*i 

if i inxii  )-’)ionn»im;*ii! 

IF ( I- 1 ) 11 » 11 »12 
L IF ( X(  1 1 - X C 2 ) ) 2D  ♦ 1 COD  » 2!1 
ASCENOlNb  CRCEP 
i TO  21  D - 1 » N X 

IF  ( X ( w ) ~XX  1 21 » A ( .Dl 
L CCNT1NU* 

VALUE  d l Y O N U EnL  CF  t a P LE 
? ISV(  1 1=1  NX  III -IK  XIII 
\ 1X1M(1I=IKX(I) 

GO  TO  lbn 

> IFCM1W  (2)  >2E»3PH  »2C 

5 DO  2S  J-ltN2 

IF<?Cv)-/?)2C.AFtCl» 

5 CON  T TNUt 

GO  TO  22 

DESCENDING  ORDER 
'H'  ?1  »,rl,NX 
IF ( X<  J » - X y > SU  »4U*  II 
L CONTINUE 
CC  TO  22 

S CC  2?  J - 1 » N2 

TF(  J(  J ) - 7 Z ) S'i,uu,3E  ' 

:•  CONTINUE 
GO  TO  22 

VALUE  F''UAL  VALU1  ,N  T ADLt 
n IX  INK  11=0 
I ^ V 1 1 » = x. 

GO  TO  1 ED 
I- 
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C,  BASELINE  AIRCRAFT  NOISE  PREDICTIONS 


The  ^o-^&K'Uotg  paflW  contain  the.  input*  and  output*  faom  the 
prediction  ior  the  seven  ba*eiine  high-lift  aircraft. 

The  prediction*  were  made  u*ing  an  aircraft  velocity  of  80 
knot*  and  0 knot*,  to  show  a comparison  between  in- flight 
and  static  result*. 
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DATA  FOR  VT  (STATIC) 


1 HAStLINE  VeCTOKfel)  THRUST  AlwC»  Ah  r 


2 

1 3 4 

3 

bO".  4,0 

«»0. 

0.0 

b.n 

4 

10  bO « 2.0" 

5 

Oil 

1 1 

0 0 

0 u 

(1  0 i 

6 

-40.  3.43 

3.43 

7 

3.4*.  2./4 

0,0 

20. 

40. 

8 

3 

9 

o.o  ?.b«b4 

/OO. 

162  -). 

40. 

10 

2.6864  b.2624 

6ttb. 

602 « 

18. 

r 

873.8  1.3 

6.3 

602, 

17. b 

12 

l.'Ob  14'jn. 

2.4936 

60  » 

1 740". 

b'->.  n* 

13 

2 200. 

14 

0 
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2n ■ .•  M<! . • : bo  102*  tt 


DATA  FOR  VT  (INFLIGHT) 


1 BASELINE  VECTORED  THRUST  AIRCRAFT 


2 

1 

3 4 

3 

500. 

4.0 

• 

o 

<r 

4 

10  50. 

2000 

t 

5 

1 

1 1 

l 1 

6 

-40. 

3.43 

3.43 

7 

3.43 

2.  74 

0.0 

8 

3 

9 

0.0 

2.5854 

700. 

10 

2«58")4 

5.2624 

6H5. 

11 

2492.06 

6.5128 

J , 367 

12 

873.6 

1.3 

6.3 

13 

1.105 

1400. 

2.4y36 

14 

2 200 

• 

lb 

0 

• 

o 

00 

8,0 

0 

0 0 

0 0 

1 

20. 

40. 

0.0 

1629. 

602. 

40. 

- 

602. 

17,5 

18. 

60. 

1740  >, 

59. 
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DATA  FOR  HYBRID  (STATIC) 
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DATA  FOR  HYBRID  ( INFLIGHT) 
1 BASELINE  HYBRID  AIRCRAFT 
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D,  HAND-CALCULATION  PROCEDURE 
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A method  is  described  to  estimate  the  noise  levels  of  V/STOL  aircraft  without 
the  use  of  a computer.  The  analytical  model  discussed  in  sections  2 and  3 is 
used  with  a few  modifications.  These  modifications  simplify  the  procedure  to 
enable  the  hand  calculations  with  little  sacrifice  in  accuracy.  The  general 
procedure  used  in  calculating  the  noise  levels  is  shown  in  Figure  A-1 . 

The  noise  source  components  which  contribute  to  the  radiated  sound  for  any 
propulsive-lift  concept  of  V/STOL  aircraft  are  selected  from  Figure  2-5.  Using 
the  flight  path  geometry  given  in  Figure  1-22  or  2-3,  the  contribution  from 
each  of  the  sources  to  the  radiated  noise  is  computed.  The  details  of  calcu- 
lating the  one-third  octave  spectra,  PNL,  and  PNLT,  using  the  geometrical  and 
operational  variables,  is  discussed  in  this  Appendix. 

INTERNALLY  GENERATED  ENGINE  NOISE 

Fan/Compressor:  The  unsuppressed  OASPL  is  calculated  using  equation  (2)  with 

K*127  and  Figure  1-3*  The  spectral  distribution  is  determined  from  Figure 
1-A.  The  effect  of  noise  suppression  by  duct  treatment  is  determined  by  add- 
ing a reduction  in  SPL  (AdB)  to  the  unsuppressed  radiated  noise. 

Turbine:  Equation  (3)  and  Figure  1-5  are  used  to  estimate  the  OASPL.  For  a 
turbine  with  more  than  one  stage,  PRstage  is  assumed  to  be  the  same  as  overall 
total  to  static  pressure  ratio  of  the  turbine,  and  Ay  is  turbine  exit  area. 

The  spectral  distribution  is  computed  with  the  use  of  Figure  1-6.  The  effect 
of  duct  treatment  is  estimated  as  described  under  Fan/Compressor. 

Excess  (Core  and  Tailpipe):  Excess  noise  which  includes  core  and  tailpipe 

noise  is  calculated  using  equation  (k)  with  K = ~70.  The  percent  ratio  of 
fluctuating  thrust  to  steady-state  thrust,  e,  is  assumed  to  be  10.  Figure  1-7 
is  used  to  estimate  the  spectral  distribution. 

JET  MIXING  NOISE 

Equation  (5)  with  K=134  is  used  to  compute  the  OASPL  at  azimuthal  angle, 
0=90°  for  circular  and  slot  nozzle  jets.  Equations  (7)  and  (9)  are  used  to 
calculate  the  OASPL  for  plug  and  co-axial  ..ozzle  jets,  respectively.  In  these 
equations,  Ca^lSA  and  Pa/P|SA  are  assumeci  to  be  unity.  In  the  case  of  the  VT 
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Figure  A-l.  Noise  Prediction  by  Hand  Calculation  Procedure 
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concept,  3 dB  are  added  to  the  OASPL  to  account  for  the  additional  noise 
generated  by  the  turning  vanes. 

Generally  the  temperature  and  convection  effects  are  small.  Thus,  equation 
(8)  with  Tj/Ta  * 1 is  used  to  calculate  the  Strouhal  number.  However  for  co- 
axial jets,  the  Strouhal  number  should  be  modified  using  the  equation  on  page 
1-22  and  Figure  1-9.  The  curve  in  Figure  1-8  for  O°<0'  <110°  is  used  to 
evaluate  the  spectral  distribution. 

The  effect  of  aircraft  motion  on  jet  noise  is  calculated  either  using  equation 
(26)  or  Figure  1-25.  The  estimated  reduction  in  SPL  (AdB)  is  added  to  the 
static  jet  noise  spectra.  The  Doppler  frequency  shift  due  to  motion  of  source 
with  respect  to  an  observer  is  neglected. 

LIFT-AUGMENTATION  NOISE 

Impingement:  Equation  (10)  with  K*-74  and  Figure  1-11  are  used  to  compute 

OASPL.  The  directivity  as  a function  of  elevation  angle  is  given  as  Acos<J>» 
where  A is  determined  from  Figure  1-1 1(b).  V|p  is  assumed  to  be  the  same  as 
jet  velocity,  Vj.  Aj  is  calculated  using  equation  (12)  or  (13).  The  spectral 
distribution  is  obtained  from  Figure  1-12. 

Wall  Jet:  Wall  jet  noise  contributes  primarily  in  the  case  of  USB,  IBF/BLC, 

and  Hybrid.  The  OASPL  is  calculated  using  equation  ( 1 A)  with  K«-105,  and 
Figure  1-13*  In  the  equation,  b is  taken  as  the  width  of  the  nozzle  and  Z is 
the  distance  between  the  nozzle  exit  or  impingement  point  and  the  flap  trail- 
ing edge.  Vm  is  the  came  as  the  jet  velocity,  Vj.  The  directivity  as  a 
function  of  elevation  angle,  is  given  as  Acos<J>,  where  A can  be  obtained  from 
Figure  1-1 1b  with  a = 0.  With  5 as  the  average  value  between  the  nozzle 
height,  h,  and  the  6te  calculated  from  equation  (17),  Figure  1-14  is  used  to 
determine  the  spectral  distribution. 

Trailing  Edge:  Equation  (15)  is  used  to  determine  OASPL  at  0=90°.  For  EBF, 

the  constant,  K,  is  assumed  to  be  -6;  Vte  is  determined  from  Figure  1-16  with 
V|  =Vjj  the  jet  thickness  and  width  (6^e  and  w)  are  calculated  using  equations 
on  top  of  page  1-37.  For  all  the  other  configurations,  the  K is  taken  as  -10, 


because  the  distance  between  the  turbulence  and  the  edge  is  farther  compared 
with  EBF;  V*e  is  assumed  to  be  the  same  as  Vj ; w is  the  same  as  the  width  of 
the  nozzle;  and  Ste  is  determined  from  equation  (17).  The  spectral  distribu- 
tion Is  evaluated  from  Figure  1-15. 

Trail inq-Edge  Make:  The  OASPL  is  determined  using  equation  (18)  with  K =*  — 1 1 1 

and  Figure  1 - 1 8.  The  spectral  distribution  is  calculated  as  given  under  jet 
mixing  noise  with  the  definition  of  Strouhal  number  as  S = f^te^te* 

Wing  Nozzle  Jet:  The  jet  noise  from  the  wing  nozzle  for  the  case  of  IBF/JF  Is 
calculated  using  the  same  procedure  as  discussed  for  jet  noise.  For  the  other 
configurations,  the  wing  nozzle  jet  noise  is  neglected. 

Augmentor  Wing:  The  OASPL  is  calculated  using  equation  (19)  with  K*-30.6  and 

Figure  1-19.  The  spectral  distribution  is  determined  from  Figure  1-20. 

The  effect  of  aircraft  motion  for  the  total  high-lift  system  is  calculated 
using  equations  (27)  and  (28).  Equation  (27)  is  used  for  EBF,  USB,  IBF/BLC, 
AW,  and  Hybrid;  equation  (28)  is  used  for  IBF/JF  and  VT.  The  value  of  the 
exponent  K in  these  equations  is  determined  from  Table  I (page  1-60).  The 
Doppler  frequency  shift  is  neglected. 

NON-PROPULS 1VE  NOISE 

Ai rf rame:  Equation  (21)  is  used  to  calculate  OASPL  for  airframe  aerodynamic 

noise.  The  spectral  distribution  is  determined  from  Figure  1-21. 

Auxiliary  Power  Unit  (APU) : Contribution  of  APU  noise  to  community  is 

generally  small.  However,  for  comparison,  the  maximum  PNL  from  APU  is  esti- 
mated using  equation  (22). 

NOISE  REDUCTION  FOR  HIGH-LIFT  SYSTEMS 

Maximum  noise  reduction  by  trailing  edge  treatment  and  trailing  edge  blowing 
for  EBF  and  USB  configurations  is  given  by  the  equations  on  page  1-71.  The 
expressions  given  for  USB  can  be  used  for  the  Hybrid  configuration  also.  By 


reducing  the  number  of  flap  segments  in  the  case  of  the  EBF,  the  noise  could  be 
reduced.  This  effect  is  calculated  using  the  equation  on  page  1-73. 


In  the  case  of  AW,  the  noise  reductions  by  the  use  of  a multi-element  nozzle 
with  a hard-wall  or  acoustically  treated  ejector  is  determined  from  Figure  1-33 . 

The  reduction  in  noise  levels  (APNL)  are  applied  by  reducing  the  sound  pressure 
levels  by  APNL  across  the  spectra. 

PROPAGATION  AND  OTHER  PHENOMENA 

Number  of  Engines:  For  multi-engine  aircraft,  the  increase  in  noise  is  esti- 

mated by, 


AdB  * 10  log(N)  where  N *»  number  of  engines. 

The  fuselage  shielding  is  determined  using  the  expression, 

AdB  * - 2 cos<j>,  where  <j > * elevation  angle. 

The  other  propagation  effects  are  given  below. 

Wing  Shielding:  For  the  USB  and  Hybrid,  the  internally  generated  engine  and 

jet  noise  are  shielded  from  the  community  by  the  wing/flap.  The  shielding 
effect  for  these  sources  is  calculated  by  using  the  equation  on  page  1-68. 
Internally  generated  engine  noise  sources' are  assumed  to  be  at  the  center  of 
the  nozzle  exit,  and  the  jet  noise  source  is  at  two  equivalent  nozzle  diameters 
along  the  jet  axis,  downstream  of  the  nozzle  exit. 

Atmospheric  Attenuation:  Atmospheric  attenuation  for  one-third  octave  bands 

is  given  by  the  equation  on  page  1-49  and  Figure  1-23.  Ground  reflection 
effects  are  calculated  using  equation  (29)  or  Figure  1-28. 

Extra  Ground  Attenuation:  Extra  ground  attenuation  is  estimated  as  APNL  from 

Figure  1-30.  This  reduction  in  noise  level  is  added  to  the  total  aircraft 
noise  at  the  observer  location. 
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